DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 


Fe Scenes re Seat a: Paae pte 


| **F ILE ®®1D**DBGSYMBOL DBG 
| v04 
: 
| ° 
| : 
DDDDDDDD BRBRRRRB GGGGGGGG SSSSSSSS_ YY YY MM MM ®8BBBBBBB 000000 LL 3 
DODDDDDD BEBBBERA GGGGGGGG SSSSSSSS_ YY YY MM MM BBBBBBBB 000000 LL : 
DD DD 6B BB GG $$ YY YY MMMM MMMM BB BB 00 00 LL : 
DD DD BB BB GG SS YY YY MMMM MMMM BB BB 00 oO LL 3 
DD DD 6B BB GG SS yY yy MM MM «6OMM «OBB BB 00 oO LL 3 
DD DD 6B BB GG $$ yY YY MM MM 00 oO LL 3 
DD DD ®BBBBBBBB GG SSSSSS YY 4 MM BBBBBBEB 00 oo LL i 
DD DD ®8B8BBBBBB GG SSSSSS YY MM MM BBBBB 00 oO LL : 
DD DD BB BB GG GGGGGG $$ YY mM MM 00 0O LL $ 
DD DD 8B BB GG GGGGGG SS YY MM MM BB BB 00 oo LL : 
DD DD 6B BB GG GG SS YY MM MM BB BB 00 oo LL weed 3 
DD DD 6B BB GG GG SS YY MM MM BB BB 00 00 LL Seed : 
DDDDDDDD BRRRBRRB GGGGGG SSSSSSSS YY MM MM BBBBBBBB 000000 LLLLLLLELL ee 3 
DDDDDDDD BEBBBHBB GGGGGG SSSSSSSS YY "aM MM BBBBBBBB 000000 LLLELLLLLL haan ; 
LL 1111 SSSSSSSS 3 
LL eeeeel SSSSSSSS 3 
LL 1] ss : 
LL I] ss : 
LL 1] SS 3 
LL I] $$ ; 
LL I] SSSSSS : 
LL I] SSSSSS : 
LL Il SS 3 
LL 1] SS : 
LL I] SS 3 
LL I] $$ : 
LLLLLLLELL III SSSSSSSS 3 
LLLLLLLLLL eens SSSSSSSS : 


| 


} 
| 
4 
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s-32 V4.0-74 

DBGSYMBOL .B32;1 (1) 
MODULE DBGSYMBOL (IDENT = ‘'v04-000') = 

BEGIN 


PASS SESSSLLOLI SITIES TTT TTT TT TTT Pee Circ irc iri iirc tic t icici reir iiiiiit 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED 


® 

® 

® 

® 

® 

4 ® 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
'® ONLY IN em NCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
:* INCLUSION OF THE ABOVE Spl dd NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
® 

® 

® 

® 

a 

® 

® 

® 

® 

® 


folololololololo) 
oooooocoo 


s 


!t TRANSFERRED. 


ie He 3 ea ae IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOT 


ICE 
ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
Hid CORPORATION. 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


COOoCoooooooooooooo 


SF FAWN inrononon 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

: 

1 VeRO RARRARERAAAARARAARAAAAEREEAEHEEHEREETETEREAEERERERRAREREERAARERARARRARE 
1! 

1 ! WRITTEN BY 

; Ping Sager March, 1982 

1 ! MODULE FUNCTION 

1 This module contains all routines connected with finding out 

1 more information about DEBUG's symbols. It thus implements the 

1 SHOW SYMBOL, SY MBOL IZE commands. SHOW SYMBOL command Lists all 

1 symbols in BDEBUG's Run-Time S$ sya bol Table (the RST) which have a 

1 ven pingle oyanes name (ZLABEL n is a symbol name), or a symbol 
1 bh whic incl yore i ildcard character (the allowed wildcard 

1 character is ‘'s’ ich matches zero or more cperetsers: | in a 

1 specified scope "o duie, a routine, or a lexical block) 

1 Qualifiers on the. SHOW SYMBOL command which specify the additional 
1 information is to be shown. SYMBOLIZE sonnent shows all feasible 
: symbolic representation of a hom address. 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SOoOoOOOCSCOSSOOSOSOSOSOSOSOOOSSOOCOOOOOOOOOo 


oS 
SOoOoooocooooooooo 


004 


PWN $0 OONOUE WN $9 OBO U EWN S$ O ODNOUS WN OOONOU EWN S 


REQUIRE ‘SRC$:DBGPROLOG.REQ'; 


FORWARD ROUTINE 
DBGSSTA -ADDRSPEC 
DBGS$STA~ SHOWS YMBOL , 
DBGSSTA~ SYRADDR 


DBGSTRANSALATE_DESCR: NOVALUE, 


yy i eh et ee ng ee Ne ey oh Nate! a Ra ee 


Interpret a DST value spec 

Handle the SHOW SYMBOL command 

Get a symbol’s value or address 
representation 

Given pointer to VAX Standard 
escriptor, transalate its 
zecermas ten into user readable 


fransalete RST's kind field into 


DBGSTRANSALATE _KIND, 
user readable form 


Sooooo°ceo oo 
ee ee reeeeter + +: 


PAPAIN & & 
NOUS WN —OOW 


a on - -_ a 


Bee Se Oe Oe Se Oe Be Be Oe Oe Se Oe Oe SH Be Se Be Be Se Be Oe FH Se Se FH Se Be Oe Oe Oe Oe Be Se Se Se Se FF Se Oe Se Se Se Se Se Ss Se Se Oe SH Os Oe Oe Se BH Se ee 
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3 8 191 1 DBGSTRANSALATE_TYPECODE: NOVALUE, ! Transalate Data Type Code into user 

; 9 138 1 ' readable form 

; & 195 1 DBGSTRANSALATE_REG: wt ; Trensalete number into register name 

co in 194 1 DBGSDUMP_HEX: ROVALU ! Given the sddrese. Gump t pe ,dbecitied 
ri © Bide 1 ! number of pytee | 

$; § 138 1 OLb SCOPE SEARCH, LIST: NOVALUE, : pert memory block le Scope se search 
>; 3664 0197 1 ; + x expand this | 

3.0 lO SD 8198 1 ' ere scope to the List 

; 66 8385 : GET_BLISS_SPECIAL_CASES: NOVALUE, } Get infornat geal the Bliss Special 
3 ' se eco 

; os 0201 } GET_VARIANT: NOVALUE, : Get informat ion for a variant from 

3 4 o 08 : SHOW SYMBOL: NOVALUE, Show — informat ion about a given 

: 7 0205 1 SHOW SYMBOL _ADDRESS: NOVALUE, ! Show symbol's address info ib /ADDRESS 
tee 0 BS 1 SHOW_SYMBOL_TYPE: NOVALUE, ! Show symbol's type info for /TYPE 

; Tr 0207 1 SHOW" SYMBOL_TYPE_HANDLER, ' Handles the abnormal conditions occur 
; 0208 1 : during the DST Value Spec 

2: a 0209 1 ! evaluation 

The 4 0210 1 WILDCARD_CANDIDATES, ' Handle sysgot name has wildcard format 
.. 0211 1 WILDCARD_NAME_SETUP, ! Set we. wildcard symbol name for string 
aes bets 1 : atch processing 

; & 02135 1 WILDCARD_SUB_STRING; ' Break wildcard symbol name into sub- 

: - 0214 1 : strings 


2 


(1) 


Ba Se Se Be Fe Se Be ee Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se SH Fe Se Be Se Se Se Oe Se Se Se Se Ss Se Se Se Se Se Se Se Se Se SESH Se Se oe HSH Se Se Se Os 


cr - - ~— -——_ 


DBGSYMBOL 
v04=000 
3 EXTERNAL ROUTINE 
i DBGSGET_DST NAME, 
BS DBGSGET-MEMORY 
8 DBGSGET-TEMPMEM, 
Re DBGSHASH_F IND, 
89 DBG$HASH-FIND.SETUP: NOVALUE, 
90 DBGSLANGOAGE 
91 DBGSMAKE_INTEGER_DESC, 
DBGSNEWLINE: NOVALUE, 
3 DBGSNPATHDESC_TO_CS: NOVALUE, 
%6 DBGSPOP_TEMPMEM: NOVALUE, 
98 
99 DBGSPRINT: NOVALUE, 


So 
o 


DBGSPRINT_CONTROL, 
DBGSPUSH_TEMPMEM, 


VUPwn— 


DBGSREL_MEMORY: NOVALUE, 
pee eT oat eSeUeE LISI. 


D “DST_PTR, 
DBGSRST-TEMP_RELEASE: NOVALUE, 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 DBGSSAVE_VAL: NOVALUE 
DBGSSTA_NUMBERED_SCOPE: NOVALUE, 
DBGSSTA_SETCONTEXT: NOVALUE , 
1 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


DBGSSTA_SYMKIND: NOVALU 


“ATOMIC: NOVALUE, 
TYP"DESCR: NOVALUE, 
TYP V 


DBGSSTA-TYP-AT 
DBGSSTA_ 
DBGSSTA 
BGS 


NUM: NOVALU 


E . 
F 
0 
Pp 
T 
R 
S 
Ss 


ALUE, 
GS$STA_TYP_SUBRNG: NOVALUE 
DBGS$STA_TYP_VARIANT: NOVALUE, 
DBGS$STA_TYP-VARIANT_COMP: NOVALUE, 
OTSSCVT_L_TZ, 


STRSCONCAT, 
STRSDUPL_CHAR, 


STRSFREE1_DX; 


IN. A. NII AI RIPINININININIIN 3 2 2 wie2O be hee 


ee ee ee a a ee a ee ae ee ae a a ee ae a ad ed a ed ed ad ed 
RE UN $0 OVO UF WN OC OONO UE WO 0an 


we 
OM 
™N 


Roronononononry 
SOAASO 
—SO0ono 


EXTERNAL 


AX-11 v4.0-7 


Ot iene 4 Page 
DEBUG. SRC JDBGSYMBOL .B32; 1 


Get the ASCII name from a DST record 
Get a memory block from memory pool 


! Get a tempory memory block from memory 


poo 
Find a name in the RST hash table 


! Set up calis on HASH_FIND routine 
! Produce name of given langua 
' Create value descriptor for 

' Output the current print buffer and 


ge 
nteger 
initialize a new print Line 


' Generate pathname aseri string from 
p 


&@ pathname descriptor 


' Pop the pointer to temporary memory 


ocks off the Temporary Memory 
Pool Stack 


' Output text to the print buffer using 
FAO formattin 


Control the print identation levels 
Push the pointer to temporary memory 
blocks onto the Temporary Memory 
Pool Stack 
Release a memory block to memory pool 
Set up the set scope search List 
Get the ‘real’ DST pointer 
Release all og RST entryies 
which are not locked 
Save *"\ 
Convert numbered scope to module 
RST and scope RST pointers 
Set up context for value evaluation 
Get a symbol's kind 
Get a symbol's full pethnene 
Return a symbol's TYPEID and FCODE 
Return info for a PL/I area type 
Return info for an array type 
Return type code for an atomic type 
Return descriptor for descriptor type 
Return for an enumeration type 
for a file type 
a PL/I offset type 
a picture type 
a typed pointer type 
a record type 
for a set type 
a mace type 
a variant type 


to ASCII hex 


Concatenate two strings 

Generates a string containing n 
duplicates of the input character 
Free a dynamic string 


Return 
Return 
Return 
Return 
Return 
Return i 
Return 
Return 
XXX 


Converts a string 
format 


3 


2) 


cc 


2 


LITERAL 
DBGSK_ADDRKIND_LITERAL = 0, 
DBGSK-ADDRKIND-ADDR = 1, 


fF 1 
DBGSYMBOL 16-Sep-1984 02:39: AX=-11 Bliss-32 V4.0-74 Page 4 
v04-' -Sep- 217s UG. Y ke 3 (2) 
be 000 14-5 : 1382 9% 3 § DEBUG. SRC JDBGSYMBOL .B32;1 . 2 
DSTSBEGIN_ADDR, } Virtual address of where the DST 
: egins 
RSTSSTART_ADDR: REF RSTSENTRY; ' Pointer %o first Module RST Entry 


' Indicate the content is a constant 
' Indicate the content is a address 


' representation 
' Indicate the content is a descriptor 


! 

' 

' 
DBGSK_ADDRKIND_DESC = 2, ; 
address A he ay tag 
! 


SPF P ES LAI LAL III EE ye at ot a a? a? ye? 
MEWN $$ O OONOUES WN "CO OONOU EWR 


DBGSK_ADDRKIND_REG = 3, ! Indicate the content a register 
DBGSK_ADDRKIND_ABS = 4, ! Indicate the content is a absolute 
; address value 
DBGSK_ADDRKIND_BITOFF = 5, ! Indicate the address is a bit offsets 
DBGSK_ADDRKIND_BLIFLD = 6 
DBGSK-ADDRKIND-COMPLEX = 7, ! Indicate the address is too complex 
; to calculate 
DBGSK_ADDRKIND_INVALID = 8; ! Indicate the address is invalid 
LITERAL 
SYMBOL_TYPE = 1, ! SHOW SYMBOL command qualifier /TYPE 
SYMBOL_ADDRESS = 2, ' SHOW SYMBOL command qualifier /ADDRESS 
SYMBOL_DIRECT = 3, ' SHOW SYMBOL command qualifier /DIRECT 
SYMBOL_RST = 4, ' SHOW SYMBOL command qualifier /RST 
SYMBOL _DST = 5; ! SHOW SYMBOL command qualifier /DST 
OWN 
DBG$_PRINT_FLAG, 


Used to control 1 routine 
in SHOW_SYMBOL_TYPE 


DBGS_QUALIFIER: BITVECTOR(32) 
INITIAL (0), 
DBG$_SCOPELST: REF VECTORC,LONG); 


Bitvector for command qualifiers 


' Pointer to the scope search List 
: for SHOW SYMBOL command 


SOOQOCGDOOCOCS COO O00 OOO OWDWWOOOOODOOyINNANNNS 
SODNA ME WN 9 ODNA VE WIN SO ODNAUN EA SO OONOUE UT 


A Linked List used to contain the 
sub-strings broken up from 
wildcard symbol name with no 
““e"" character 


FIELD WILDCARDS_FLDS_DEF = 


109 09 09 08 SI SIN SINS NNO OO 


SORA SE SSSA RAN AS SSISASAW LS SHV 


AAA AAA AAAI AAA AAI AI AE Po POP POPOPIPOPONS NPP POPononononononofnonofnnnonn 


—) —s so —) 4 a 4 


dedadbadtad cbadadadadatatadtatadadabaedbatatadlmdababaadtaaiatabadad baoataatadaadbdababadaadbadabadadabadababadad 
CSDOOSOSGOOCOOCOCOCOSOOCSCOCOOCOO COCO SOOO COCOOCSSOOOC COCO OO OOOO OOOOOOOOOOOOOO 


; 
& SET 
5 WILDCARDSL_LINK = (CO, L_], ! Pointer to next node 
§ tata darts = {1, LJ ! Pointer to Counted ASCII Sub-String 
2 cm 
2 LITERAL 
0 WILDCARDSK_SIZE = 2; ! Size of Link node in longword 
MACRO 
WILDCARDS_FLDS = BLOCKCWILDCARDSK_SIZE] FIELD(WILDCARDS_FLDS_DEF) %; 
5 
§ MACRO 
” INIT_DESCRIPTOR(DESCR) = 
» 8 BESCRCDSC$W_LENGTH) = 0; 


Seca cidengeidioaicns eacaalles L 


oo S 
on 


QESEENSSS 
BBSBszszz 


ee Se Ge Ge Ge Ge Ge Ge Se Ge Oe Ge Ge Ge ee 


BBVBSSBSSSESIIIITIIS 
ON NEE DP TP A Re re + 


PUPP BB BS BB BB EE III 


POPIPOPOPIPIPINININIPINIPIPIPINININININININININININNININININNN SS 


WANA PIPINONINUNONUNODY 2 2 OS OO 
UNO OCONOAUE WN —“OVOONOUE WO 0O@ 


we) 
32z2z 


rs 


AWWA 
AOA 
=O ODNOA NE WN 9 ODA NE WIN SO ODNOA UE WH" OOONOUE WO 0 


vd 
uw 


tot at et et hd 
me -CCo@ 
_ 
OOCGCOCOCOCOOCOS COSCO COCO C OCC COCOCOOOOOOCOOOOOOOOoOoOO 
o 


eeerr 
a ee eee) 


POPZPIPININININIPININININNIPPONI NINN 


wa 
wrn—o 
WFwnr—o 


www 
_ 
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aoe 9 39:38 DEBUG. SRC IDBGSYMBOL .B3 31 v 23 
DESCR psesa_pryPe} = DSCS$K_DTYPE_T; | 
DESCRIDSC$B-CLASS) = DSCSK-CLASS_0; 
DESCREDSCSA-POINTER) = 0;%7 
DISCARD_DESCRIPTOR(DESCR) = 
BEGIN 
LOCAL 
FREE_STATUS; 


FREE_STATUS = STRSFREE1_DX(DESCR); 
END2; 


MACRO 
DTYPE_LENGTH(LENGTH) = 
IF .LENGTH NEQ 0 
THEN 
BEGIN 
DEGSPRINT (UPL IT BYTE(ZASCIC ', size:"), 0); 
‘ DTYPE EQL DSC$K_DTYPE_V 
DBGSPRINT(UPLIT BYTE(ZASCIC' !UL bits’), .LENGTH) 
IF .DTYPE EQL DSC$K_DTYPE_P 
DBGSPRINT(UPLIT BYTE(ZASCIC’ !UL digits’), .LENGTH) 
aps DBGSPRINT(UPLIT BYTE(ZASCIC’ !UL bytes’), .LENGTH); 
DTYPE DIGITS(DIG GITS) = 
IF SCRLDSC$B_DIGITS) NEQ 0 
 ScSPRINT(UPLIT BYTE(ZASCIC’ with 'UL digits’), .DIGITS);%, 
DTYPE_SCALE (SCALE) 
IF Wax “DESCREDSCSB_ SCALE] NEQ 0 
NDBGSPRINT(UPLIT BYTE(ZASCIC ' scaled !SL"), .SCALE)S; 
MACRO 
BLIUNIT (UNIT SIZE) 
a te UNIT _ “SIZE OF 
}: 
' DBGSPRINT(UPLIT BYTE(ZASCIC'byte’), 0); 
47, DBGSPRINT CUPLIT BYTE(ZASCIC'word'), 0); 
com eRGSRANT(UPLIT BYTE(ZASCIC' Long"), 0); 
gqDbOSPRINT (UPL IT BYTE(ZASCIC’!SL'), .UNIT_SIZE); 
MACRO 


ITEM_SIZE(BITSIZE) = 


<V 
am 


rt 


2 


563551 
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tees Otis 
DEBUG. SRC 


ep-t9be 18:17:58 


41 
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4-5 


1 
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“~~ 7 
“ ~ 
ive} ” 
~ _ _ 
w ~ os 
NN @ @ 
_— . . 
” 
_— . . 
— ~~ -o-~ 
@ oe = 
. w w 
a ry 
** . cs -_ 
~ ~ ~ 2a 
o - 2 
“ ) 
. a I = 
~ -_ => ae 
_-_ 2a ed 
~N = ee 
om at 
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[v¥) ——- ee OO ODO Ww w & 
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—~ Z2mu@m@m” as: & Oar re ww s 
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: ca 
VALSPEC: REF DSTSVAL_SPEC; ‘Pointer to DST Value Snec 


' Get to the Value Specification. Bliss Special Cases DST is a special 
case, so handle it differentiy. 


If .DSTPTRCDST$B_TYPE) EQL DSTSK_BLI 
THEN 


BEGIN 
at vA. rece VS_VFLAGS] = .DSTPTRCDST$B_BLI_VFLAGS); 


ROMIMININININ — BOOOOO 
FENLSSSVUSRRUNVS Sane naw —coenenr 


H 8 +19 ! GLOBAL ROUTINE DBGSSTA_ADDRSPEC(DSTPTR, ADDRPTR, ADDRKIND): = 

: 281 41g 1 i FUNCTION 

3 § 415 1! This routine interprets the given DST Value Spec and produces the 

; tie ! } corresponding address representation for that data symbol. 

: 285 416 1 i INPUTS 

3 My ot : } DSTPTR = Pointer to DST record. 

: 88 t18 1 i ADDRPTR = The address of a 2-longword vector to receive the address 
; 4 re y : specification of the symbol. 

: 91 4 : 1 ; ADDRKIND = The address of a longword location to receive the address 
: 29 424 1 > 

3; 294 425 1 ! OUTPUTS 

; 95 4 $ 1! ADDRPTR = A pointer to the desired address representation is returned 
3 337 3 f : to ADDRPTR. 

: 98 oe 4 : ! ADDRKIND = The kind of the address representation. 

: 00 0431 1: Return a pointer to VALSPEC of ADORESS or DESCRIPTOR to the caller 

3 4 ae ¢ ’ } to continue the unfinished address interpretation. 

: 30 0434 1— 

3 ; 0435 BEGIN 

; .04 

; 043 MAP 

$ 0438 ADDRKIND: REF yecrost LONG), ' Address kind 

; 0439 ADDRPTR: REF VECTOR[OS, i Address vector 

3 ere DSTPTR: REF DSTS$RECORD; ! Pointer to DST record 

: 3 044 LOCAL 

; 044 BLITRLR: REF DST I yeayent. ! Pointer to Bliss DST record trailer 
3 0444 § BLIVALSPEC: BLOCK(8,BYTE ' Value Spec buffer for Bliss Special 
; 3 0445 FIELD(DST$VS_HDR_FIELDS),! ses DST record 

eS § 

; DST$B 

: 04 LITRLR = DSTPTREIDSTSA roe + spare iacys ise BLI_LNG); 

; 04 BLIVALSPECCDSTSL_VS yacue = .,BLITRLRCOSTSL_BLI_VALUET; 

; ? yi SPEC = BLIVALSPECCDST$B_VS_VFLAGS); 

; 60 

s 461 ELSE 

3 rh VALSPEC = DSTPTRCDST$SB_VFLAGS); 

; 64 

3 465 ! If the value is given by a praiting value Spec, we get to that Value 

3 35 466 ' Spec. We loop in case the indirection is repeated. 


PELE 
a 
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J 12 

e=8sp-198e 93:17:59 
teases 7 
f the Value Spec p*yes the offset to a descriptor (in the DST), return 


l 
the address of that descriptor to the caller. 
ag ORR TPC ae EQL DSTSK_VFLAGS_DSC 


ADDRPTALO} = PLSPECLDS TEA, VS_OSC_BASE] + .VALSPECCDSTSL_VS_DSC_OFFS); 
ADDRPT 


ADDRKINDLO) = _ Pacsk _ADDRKIND_DESC; 
RETURN .VALSPE 


Ax-11 BL ALT 


32 V4. hag 
DEBUG. SRC JDBGSYMBOL .B32;1 (3) 


' 
WHILE .VALSPECCDSTSB ¥s VFLAGS] E 
VALSPEC = VALSPECCDSTSA_VS_TV 


K_VFLAGS vs D0 
= .VALSPECCDOSTSL_VS_TVS_OFFSETJ; 


fF. 
oe 


' If this is a Bit Offset Vaiue Spec, return that bit offset as a byte 
; address plus bit offset to the caller. 


Aico, VS_VFLAGS] EQL DSTSK_VFLAGS_BITOFFS 


ADDRPTREO} = - VALSPECCOSTSL_VS_VALUE]/8; 
ADDRPTRC1) = .VALSPECCOSTSL-VS-VALUE] AND 7; 
ADDRKIND(O) = DBGSK _ADDRKINO_ BITOFF; 


RETURN .VALSPEC; 
END; 


f this is a Value-Spec-Follows value spec, a more complex value spec 
ollows the VFLAGS field. Here we handle those kinds of value specs. 


VALSPECCOSTSB_VS_VFLAGS] EQL DSTSK_VS_FOLLOWS 


os 


x= 
m 
2: 


Sort out which particular kind of complex value specification follows. 
CASE. VALSPECCDSTSB_VS_ALLOC] FROM DSTSK_VS_ALLOC_STAT TO DSTSK_VS_ALLOC_DYN OF 


! Handle statically or Gyngoicalty allocated objects without Binding 

' Specs. Here we tust indicate this is too comer ex to compute, for 

' if we do evaluate the Materialization Spec will cause the side 

: effects. 

CDSTSK_VS_AL 

DSTSK"VS"AL 
ADDRPT 


<2 | 
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SOCONOUEWN Oo 


We are done with the complex value spec. 
RETURN .VALSPEC; 
END; 


This is an ordinary gergen variety Val 
' and a normal VALUE f is is 
' Literal to the caller. 


' 
1 
1 
iF .VALSPECCDST$V_VS_VALKIND] EQL DSTSK_VALKIND_LITERAL 


ADDRPTRL1 
ADDRKINDC 
RETURN .VA 
END; 


This value spec requires the value to be computed. 
is either the address of some object or the address of a descriptor. 
Return to the caller to do some more interpretation about the address of 
this value, used -1 to indicate unfinished status, return its kind: 
address or descriptor address. 


DORPTREO) = 1; 

DDRPTRE1} = -1: 

F .VALSPECCDST$V_VS_VALKIND] EQL DST$K_VALKIND_DESC 
ADDRKINDCOJ = DBGSK_ADDRKIND_DESC 


tome > ee we we we twee 
= 
Mm 


K 12 
ecSepmt9be 19:17:59 Ebeaus. 


Any other value in the DSTSB_VS_ALLOC field is an error. 


CINRANGE, OUTRANGE): 
SIGNAL (DBGS$_INVDSTREC); 


TES; 


eld. If th 


BEGIN 
ADDRETREO? = VALSPECCDSTSL_VS_VALUE); 
ADDRPTR(1) = 0; 
ADDRKINDLO] = HBGSK_ADDRKIND_LITERAL: 
RETURN .VALSPEC; 


} If this is a register number, return the register number. 
If, VALSPECCDSTSV_VS_VALKIND] EQL DSTSK_VALKIND_REG 


BEGIN 
ADDRPTR i} = ,VALSPECCDSTSL_VS_VALUE]; 


= DBGSK_ADDRKIND_REG; 


= 
J=6 
LSPEC; 


LSE 
ADDRKINDCO) = DBGSK_ADDRKIND_ADDR; 


Return to the caller. 


ue Spec with a normal VFLAGS field 
a literal, return the address of the 


The resultin 
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; 4650 2 1 RETURN .VALSPEC; 
: i ie to. 


“IDENT \vbe-000\ 
~PSECT DBGSOWN,NOEXE, PIC,2 
00000 DBGS_PRINT FLAG: 
00000000 00004 DBGS oval FER: 
00008 DBGS$_SCOPELST: 
-BLKB 
-EXTRN poseee! DST _NAME 


-EXTRN DBGSGET MEMORY, DBGSGET_TEMPMEM 
~EXTRN PB CSHASh Ae DBGSHASH_F IND SETUP 


EXT 

-EXTRN DBGSPOP_TE 

-EXTRN DBGSPRIAT DBGSPRINT CONTROL 

EXTRN DBGSPUSH fEemP 

eEXTRN DBGS aera DBGSRST_BLDSCOPE_LIST 


RS 
~EXTRN DBGSSAVE VAL = RELE 


A 
«EXTRN DBGSSTA_TYP_A 


ZEXTRN DBGSSTA-TYP-ATOMIC 
“EXTRN DBGSSTA-TYP~DE 
EXTRN DBGSSTA-TYP"E 
-EXTRN DBGSSTA-TYP FILE 
“EXTRN DBGSSTA-TYP "OFFSET 
“EXTRN DBGSSTA-TYP-PICT 
SEXTRN DBGSSTA-TYP~TYPEDPTR 
EXTRN DBGS$STA-TYP"RECORD 
-EXTRN DBGSSTA-TYP~SET 
*EXTRN DBGSSTA-TVP"SUBRNG 
SEXTRN DBGS$STA-TYP"VARIAN 
"EXTRN DBGSSTA TYP” VARIAN COMP 
*EXTRN OTSSCVI “L_12, STRSCONCAT 
TEXTRN STRSDUPC CHAR, STRSFREET DX 
| *EXTRN BeTeorGIR” ADDR, RSTSSTART_ADDR 
| .PSECT DBGSCODE,NOWRT, SHR, PIC.O 
| 990004 90000 ENTRY DBGSSTA_ADDRSPEC, Save R2 ; 0410 
Hi 04 Ke 06 6 0 MOVL dstein, RO : 0452 
1 9 TSTB : 


Mm 12 


GSYMBOL 6~Sep- 9 AX-11 Bliss-32 V4.0-74 
Mbes000 patie rit He oe HR 9 tt ae 
| 1 1 C BNEQ =s:*'18 
F = & MOVB  4(RO), BLIVALSPEC 
; AO 9A MOV ZBL géR ° R 
| 0 A04 ; 1 v (RO)ER1}, BLITR 
| 01 A 60 p 18 MOVL (BLITPLA) BLIVALSPEC*1 

5 E 9 14 HOV oneal 
| 2 02 Ag 3 8 4 1$ MOVAB 2(RO) VALSPEC 
fa OBF 6 91 00008 2$ CMPB {VALSPEC), 1 
| 8 ie 00 C BNEQ $ 
51 53 01 A ‘ 0 ADDL3 1(VALSPEC), VALSPEC, R1 
05 al f 0 OV (RI), VAL SPEC 
Ta BRB $ 
FA BF 62 91 00039 3s: CMPB  =s-: (VALSPEC), #250 
| $12 00% BNEQ = 4$ 
50 08 AC OD 90 F MOVL. ADDRP 
51 52 01 A ct 043 ADDL3 1(VALSPEC), VALSPEC, R1 
60 05 Al SE 00048 MOVAB 5(R1) j 
04 a0 4 0004¢ CLRL =—«-_-« & (RO) 
0085 31 0004F BRW 11$ 
FF OF 62 91 00052 4s: CMPB  =s- (VALSPEC), #255 
16 1 0056 BNEQ 5$ 
50 08 AC 00 0005 MOVL.  ADDRPTR 
60 01 A 08 c?7 0005C DIVL3 #8, 1(VALSPEC), (RO 
04 Ad 01 A2 0 00 EF 00061 EXTZV 4 * #3, T(VALSPEI), 4(RO) 
oc «BC 03 DO 00068 MOVL @ADDRK IND 
11 0006C BRB ’ ‘ 
FD oF 62 91 00066 5$ CMPB = (VALSPEC), #253 
24 12 0007 BNEQ 4 
01 01 03 A2 8F 00074 CASEB (VALSPEC) 1, #1 
0013 001 00079 6$ <WORD 7$-6$,- 
0002832A 8F DD 90070 PUSHL #164650 
000000006 00 1 FB 0008 CALLS #1, LIBSSIGNAL 
5 11 OOOBA BR 1 
50 08 AC 00 008C 7$: MOV ADDRPTR, RO 
60 7C 9090 CLRO R 
oc BC 07 00 0009 MOVL #7, @ADDRKIND 
49 11 00096 BRB 
03 62 93 00098 8$ BITB  (VALSPEC), #3 
10 12 00098 BNEQ 
50 08 AC 0 0090 MOVL § ADDRPTR, RO 
60 1 <A2 9% Al MOVAB 1(R2), (RO) 
4 AO 04 3 CLRL (R 
C BC D4 000A CLRL § @ADDRKIND 
4 11 OAB BRB \ 
03 62 02 0 f 9%: CMPZV #2, (VALSPEC), #3 
1 0B BNEQ 
| 5 8 aC 00 00084 MOVL = ADDRP 
6 1 Ad D0 B8 MOVL teOm SPECT (RO) 
| 4 AO 04 000BC CLRAL 
oc ec : DO 000BF MOVL @ADDRKIND 
C 11 000C BRB ’ 
50 08 AC 00 000C5 10$: MOVL  ADDRPTR, RO 
6 1 CE 000C MNEGL a, Ro} 
| 06 A 1 ce gooce MNEGL (RO) 
| 02 62 0 0 £0 0000 CMP2V 40° oo (VALSPEC), #2 
| 


Pee Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Se Be Se Se Be Se + Se Be Fe Se Se Se Se Se Se Se Ge Be Be Se Se 
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1 05 BNEQ 1 $ 
oc Bt p 07 11$: MOVL @ADDRKIND 
DB BRB ’ § 
0c eC 1 0D 0D 12$: MOVL #1, QADDAK IND 
2 DO OO0E1 13$:  MOVL VALSPEC, R 
04 000E4 RET 


; Routine Size: 229 bytes, Routine Base: DBGSCODE + 0000 


<o | 
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GLOBAL ROUTINE DBGSSTA_SHOWSYMBOL(VERB_NODE) = | 


; 454 p28t 1 

: 38 S888 | | FUNCTION 

; § bap 1! 

3 ces p2g8 i } SHOW SYMBOLC/qualifier...] namespec CIN scopespecl,scopespec...J] 

; 460 8388 1! This routine performs the semantic action associated with the 

: 461 0591 1! SHOW SYMBOL command. First step sets up a scope search List for 

>; 46 b298 1! the specified symbol name (wildcard scheme is allowed). 

> 46 aye 3 ft scopespec is specified, DBGSRST_BLOSCOPE_LIST is called to construct 

3; 464 0594 1! the set scope list, and converts all the numbered scopes to medule 

; 465 bees 13 RST and scope RST pointers by calling DBGSSTA_NUMBERED_SCOPE, then 

> 466 >. ae constructs a List of search scopes from set sCope search List. 
: 467 0597 1! If scopespec is omitted, ali set modules and the GST are set up 

; 468 0598 1! in the scope search list. Second step generates the candidate symbols, 
; 469 0599 1! a ‘candidate symbol"’ is a symbol whose name matches namespec, 

: 470 0600 1! but which may not be in any of the scopespec scopes. Third 

; 471 0601 1! step selects candidates in the scope search list. Finally, 

: 472 0602 1! the information to be showed could include the symbol name 

3: 473 0603 1! .yee information, address information, and (for DEBUG developers) 

3 6474 06046 1! the symbol RST and DST entries in hexadecimal. 

3; «475 0605 1! 

; 476 0606 1 ! INPUTS 

: 477 0607 1! VERB_NODE = A pointer to the Verb Node in the command execution 

3; 478 0608 1! tree which was constructed after parsing the SHOW SYMBOL 

; 479 0609 1! command. 

: 480 0610 1! 

; 481 0611 1 ! OUTPUTS 

: rt pets : Return value is TRUE if any matches were found; false otherwise. 

; 684 0614 1 

; 485 0615 2 BEGIN 

; 486 0616 2 

; 487 0617 2 MAP 

; 488 0618 § VERB_NODE: REF DBGSVERB_NODE; ! Pointer to the Verb Node in the 

; 489 0619 : command execution tree 

: 490 0620 2 

; «491 0621 2 

; 49 poss 2 LOCAL 

; 49 0625 2 ADVERB_NODE: REF DBGSADVERB_NODE , ! Pointer to the Adverb Node in the 

: 494 0624 § : command execution tree 

3; «64495 0625 BAD_SCOPE, ! Pointer to a counted string 

; 496 0626 2 ! representing the translation 

: 497 0627 ! of the contents of the 3 A 
; 498 0628 : pathname descriptor 

3; 499 0629 CNT1, ' Tempory count variable 

; 500 0630 CNT2, ' Tempory count variable 

; 501 0631 DATA_LIST: REF VECTOREC,LONG), ' A Link List of data symbols 

: 206 6 ; ERRIRNDEX, Indicate the bad scope pathname is 

; ‘ oun 

: Hi be % IN_SCOPE, ! Flag set if candidate symbol is in 

3 305 5 : the given scope 
; 506 06 $ INVOCNUM, ' Invocation number for numeric scope 
; 507 6 : only needed for parameter passing) 
; 508 638 MODRSTPTR, ' Pointer to module RST entry in scope 
; 509 639 : search List 

s 330 640 NAMESPEC: REF VECTORC, BYTE), : Pointer to a counted string of 
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: Qi} 0641 ! namespec field in SHOW SYMBOL 
; ig pong ! command 
ae 064 NAME: REF VECTORC,BYTE), ! Pointer to a counted string 
3 316 0644 NCANDS, ' Number of scope entries or later on 
: 35 645 ! used as Number of displayed symbols 
$ 218 erg NEXTSETMOD: REF RSTSENTRY, } poner o the next set module after 
3 ! $ one 
3; 318 pees NEXTRSTPTR: REF RSTSENTRY, ! Pointer to the next RST entry belong 
; 519 649 : ' to the same module as this one 
3 320 0650 NOUN_NODE: REF DBGSNOUN_NODE, ! Pointer to the Noun Node in the 
3 6Se} 0651 ! command execution tree 
3 2s¢ Bo2¢ RSTPTR: REF RSTSENTRY, ! Pointer to candidate RST entry 
3 65 SCOPE: REF RSTSENTRY, ' Pointer to scope RST entry in set 
; 526 0654 ! scope search List 
: 525 0655 § SCOPEPTR: REF SCOPESENTRY, ' Pointer to the set scope search List 
3; 3a 0656 SCOPESPEC: REF VECTORCL,LONG), ! Pointer to the pathname descriptor 
3 Ser 0657 2 ! vector of scopespec field in 
; 528 0658 § ! SHOW SYMBOL command 
: 4 0659 STATUS ' 
: 530 0660 2 SYMSCOPE: REF RSTSENTRY i Pointer to symbol scope RST entry 
s 331 0661 2 SYM_SCOPESLIST: REF SCOPESENTRY, | Pointer to the set scope search list 
; te 0662 2 UTICITY_FLAG, ! Flag set to indicate some condition 
s 535 0663 2 ' is encounted 
: 534 0664 2 WILDCARD: REF VECTORC,BYTE), ! Pointer to ‘*' character in a string 
3 Dae 0665 WILDCARD_NAME: REF VECTORE ,BYTEI, ! String contains ‘*', with appended 
3; 390 0666 : egin and end characters 
; Sar 0667 WILDCARD_PTR: REF WILDCARD$_FLDS;! Pointer to Sub-Strings 
; 538 0668 2 
; 539 0669 2 
: acy gory 2 Set print controls for DBGSPRINT. 
: 266 oer 3 DBGSPRINT_CONTROL (DBGSK_PRTSET_CONTINUE, 2, DBG$K_PRTBRK_ON_BLANKS); 
3; «546 0674 2 
; 545 0675 2 ! Initialize the scope search List pointer, set scope search List pointer, 
; 546 0676 2 ! and command qualifiers bitvector. 
; 547 0677 ! 
; 548 0678 DBG$_SCOPELST = 0; 
; 549 0679 SYM_SCOPESLIST = 0; 
; 550 0680 DBGS_QUALIFIER = 0; 
3 331 pees 
3 332 06 § 
s 3535 068 ! Recover the Noun Node for namespace and scopespec, and Adverb Node 
: 226 0685 for command qualifiers from SHOW SYMBOL command execution tree Verb Node. 
3 228 06 $ NOUN_NODE = .VERB_NODECDBG$L_VERB_OBJECT PTR); 
; 237 06 : ADVERB_NODE = .VERB_NODECDBGSL_VERB_ADVERB_PTR); 
3 238 689 
; 360 4 Set up command qualifiers from Adverb_node. 
3 206 69 If .ADVERB_NODE NEQ 0 
3 2 69 THEN 
: 564 694 BEGIN 
; 263 695 
: 567 069 ! There are qualifiers specified or the command. 
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tf 
build scope list routine t 


WHILE TRUE DO 
BEGIN 


END; 


Check to see if there are more qualifiers. 
if .ADVERB_NODE EQL 0 THEN EXITLOOP; 


Set up command qualifier bitvector accordingly. 


CASE .ADVERB_NODECDBG$B_ADVERB_LITERAL] FROM 
SYMBOL_TYPE TO SYMBOL_DST”OF 


! /TYPE 
CSYMBOL_ TYPE): 
DBGS_QUALIFIERCSYMBOL_TYPE] = TRUE; 


! /ADDRESS 
CSYMBOL_ADDRESS]: 
DBGS_QUALIFIERCSYMBOL_ADDRES.J = TRUE; 


' /DIRECT 
CSYMBOL_DIRECT): 
DBGS_QUALIFIERCSYMBOL_DIRECT] = TRUE; 


' /RST 
CSYMBOL_RST): 

DBGS_QUALIFIERCSYMBOL_RST] = TRUE; 
' /DST 
CSYMBOL_DST): 
DBGS$_QUALIFIERCSYMBOL_DST] = TRUE; 
TES; 


Get next command qualifier. 
ADVERB_NODE = ,ADVERB_NODECDBG$L_ADVERB_LINK); 


END; ! End of walking through Adverb Node. 
! End of setting up command qualifiers. 
Pick up scopespec field in the noun node which specifies the 


hname descriptor vector for the set scope search List. 
there is a set scope search list specified 


n the command, call 
© construct the set scope search List. 
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; 625 755 ! 3 
3; © § oF § SCOPESPEC = .NOUN_NODECDBGS$L_NOUN_VALUE2]; 3 
= 7 IF .SCOPESPEC NEQ 0 ; 
; 628 0758 THEN $ 
; 629 0759 BEGIN 3 
; 630 0760 5 
: 3 $763 1 § i ified in th d. Build th h 
; ! Scopespec is specified in the command. Bu the set scope searc 3 
: o38 Ores List. 7 : 
; 635 0765 SYM_SCOPESLIST = DBGSRST_BLDSCOPE_LIST(.SCOPESPEC, ERRINDEX, : 
3 638 0766 FALSE, FALSE); $ 
; 6 0767 3 
; 638 0768 F 
; 639 0769 ' Check for bad scope name entry. 3 
; 640 0770 ' $ 
; 641 0771 IF .ERRINDEX NEQ 0 $ 
; 64 Orie THEN : 
; 64 0773 4 BEGIN ; 
3 644 0774 4 ; 
: 645 0775 4 3 
; 646 0776 4 ! Transalate the bad scope to a counted string. Signal an 3 
s 647 0777 & ! error. 3 
; 648 0778 4 ! 3 
; 649 0779 4 DBGSNPATHDESC_TO_CS(.SCOPESPECC.ERRINDEX], BAD_SCOPE); 3 
; 650 0780 4 SIGNAL (DBG$_NOSUCHSCOPE, 1, .BAD_SCOPE); F 
; 651 0781 ; END; é 
; 652 1404 se. 3 
; 655 0785 2 END; ! End of building set scope search list. : 
3; 654 0784 2 3 
3 695 0785 § : 
; 656 0786 ! Build a List of scopes for the symbols to be searched. Count the number ‘ 
3 607 0787 2 ! of scopes in the scope search List. é 
; 658 0788 : F 
; 659 0789 NCANDS = 0; é 
; 660 0790 F 
; 661 0791 3 
3 a6 4454 2 ! If we have scopespes specified in the command. Convert all the numbered 3 
; 66 079 ! scopes to module RST and scope RST pointers. If there is one translation : 
3; 664 0794 ' can not be done (returned module RST pointer is zero), an informational 3 
; 665 0795 ! message is signaled. If there are no translations can be done at all, 3 
; 666 0796 ' release memory block, return to the caller. Enter the good scope to 3 
3; 667 0797 ! the scope search List. 3 
; 668 8738 : 3 
3; 669 79 IF .SCOPESPEC NEQ 0 3 
; 670 0800 THEN 3 
3 67) 0801 BEGIN ; 
; O76 Bane CNT] = 0; $ 
; 67 80 CNT2 = 0; 3 
3; 674 804 : 
; 675 it 3 
; 676 4] Set SCOPEPTR points to the set scope search List. : 
; 678 B08 SCOPEPTR = .SYM_SCOPESLIST; 3 
; 679 0 WHILE .SCOPEPTR NEQ 0 DO F 
; 680 th 4 BEGIN 3 
: 681 0811 4 : 
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; 68 B12 4 

; 68 a81§ 4 ! Assume we have a good scope. Count the number of scopes in 

; 686 B14 4 ' the set scope search List we have encounted. Get the scope 

; o8? Bai? ? } RST from set scope search List. 

; 687 OBIy UTILITY FLAG = TRUE; 

; 688 g18 4 CNT1 = .CNT1 ¢ 1; 

; 689 19 4 SCOPE = .SCOPEPTRCSCOPESL_RSTPTRI; 

: 691 083 4 

; 69 08 § 4 ' Check to see if this is a numbered scope. If it is, turn it 
$ $37 Se ? 2 } into normal scope. 

; 695 0825 4 if -SCOPEPTRCSCOPESL_STATE] EQL SCOPESK_NUMBERED 

: 839 ae THEN BEGIN 

: 698 0828 DBGSSTA_NUMBERED_SCOPE( .SCOPEPTRCESCOPESL_MODPTR], MODRSTPTR, 
3 $93 oe 4 SCOPE, INVOCNUM); 

: 701 0831 § 

; 70 tit 5 ' Check to see if we can convert this numbered scope. If we 
: 70 0835 5 ! cannot, give an informational message. Count the number of 
3 ye Oaee : } bad scopes. Set the flag to indicate bad status has encounted. 
: 706 0836 5 if .MODRSTPTR EQL 0 

3; 707 0837 5 THEN 

; 708 0838 6 BEGIN 

; 709 0839 6 SIGNAL (DBG$_NONUMSCOPE, 1, .SCOPEPTRISCOPESL_MODPTRI); 
; 710 0840 6 CNT2 = .C © 1; 

; ay 0841 6 UTILITY FLAG = FALSE; 

; ag bBe§ ; : 

$ At Oace ? END; ! End of converting numbered scope. 
; 716 0846 4 

Bete Oc? 4 ! Check to see if this is a global scope, If it is then sets u 
3 at rts : sco Ass be '‘ANONYMOUS’’ module containing all unclaimed globa 
; ' symbols. 

; 720 0850 4 ! 

s fel 0851 4 IF .SCOPEPTRCSCOPESL_STATE] EQL SCOPESK_GLOBAL 

5 166 bog 4 THEN 

; tS? th ? SCOPE = .RSTSSTART_ADDR; 

; 725 0899 4 

3 268 +t ? q Enter the good scope to scope search List. 

; 728 0898 4 if .UTILITY_FLAG THEN BLD_SCOPE_SEARCH_LIST(NCANDS, .SCOPE); 

; 89 0860 4 

: ay 1 ; Get next item on set scope search List. 

; 738 ages ‘ SCOPEPTR = .SCOPEPTRISCOPESL_FLINK); 

: 735 bpes END; ' End of WHILE walking through set 
: 736 0 § ! scope search list. 

: 737 086 

; 738 0868 
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; 739 0869 ! Check to see if all transalations from numeric scope to module scope 
; 740 8 70 ! failed. If it is, release the set scope search List memroy block, 
3 3 8 4 return to the caller. 

s 76 0878 if -CNT1 EQL .CNT2 

: 7646 874 THEN 

3 745 0875 4 ereln 

; 746 BEt8 4 DBGSREL Naa eating 

3: 747 0877 4 RETURN FALSE; 

3: 748 base 3 

3; 749 087 

s 750 0880 END ! j eae of if there is a scopespec 

3; 751 0881 specified. 

; Pee bas 

; 73 088 ; 

3; 754 0884 ! If scopespec is omitted. ALL set modules’ RST entries and GST are 

3: 755 tH i set up in the scope search List. 

; 756 0886 i 

3; 757 0887 ELSE 

; 758 0888 BEGIN 

; 759 0889 

: 760 0890 

3 re! 44 } Make NEXTSETMOD point to the first set module. 

$ 7 ta NEXTSETMOD = .RSTSSTART_ADDR; 

; 765 0895 - 

3; 766 0896 ! Find the next set module in the module chain. Enter the module 

: 767 0897 ! RST on scope search list. 

: 768 0898 ; ! 

; 769 0899 WHILE .NEXTSETMOD NEQ 0 DO 

; 770 0900 4 BEGIN 

: 771 0901 4 

.. Ta 0902 4 

3 46 34 : if the module is set then enter the module RST on scope search 
3: 775 0905 4 ! 

; 776 0906 4 IF .NEXTSETMODCRST$V_MODSET) 

= 99r 0907 4 THEN 

; 778 0908 4 BLD_SCOPE_SEARCH_LIST(NCANDS, .NEXTSETMOD); 

3; 779 0909 4 

; 780 0910 4 

: 781 0911 4 ! Go on to next module in the chain. 

: 78e Bats 4 

; 78: 91 4 WEXTSETMOD = -NEXTSETMODCRSTSL NXTMODPTR); 

> 784 0914 END; ' End of setting up all set modules. 
s 735 0915 

3; 786 aS 

: ad 4 Set up Global Symbol Tab‘e. 

: a4 $19 BLD_SCOPE_SEARCH_LIST(NCANDS, .RSTSSTART_ADDR); 

: 44 3 END; ! End of if scopepsec is omitted. 

: 79 9 

: 794 924 ! Check to see if we have ag ryt ti quite seeaee search list. 

3; «6795 0925 ! If not, really something is wrong. enter the scope count 
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v0e=000 1e3eb-13ke 93:19:85 — EOteuc. She Sbeceynooe -0335 1 9 a) 
; ie g § 1 to the Ist longword in the scope search List. 
; 798 9 iF .DBGS$_SCOPELST EQL 0 
; 799 9 5 THEN 
; 800 930 BEGIN 
; 801 931 ff »SYM_SCOPESLIST NEQ 0 THEN DBGSREL_MEMORY(.SYM_SCOPESLIST); 
; Boe 09 § DBG_ERROR('DBGSYMBOL\DBGSSTA_SHOWSYMBOL, err. 10°); 
; 80 09 END 
; 804 0934 ELSE 
; 895 0935 DBG$_SCOPELSTCO) = .NCANDS; 
Bs 
; 808 88 & ! Pick up the namespec field which consists of a sing symbol name, 
; 809 0939 ‘ora syaeer name includes wildcard characters. Set up the flag 
; 810 0940 ! accordingly. 
, 8 0941 : 
; Big 094 NCANDS = 0; 
; 81 094 DATA_LIST = .NOUN_NODECDBG$L_NOUN_VALUE); 
; 814 0944 WHILE TRUE DO 
; 815 0945 BEGIN 
; 816 peg IF .DATA_LIST EQL 0 THEN EXITLOOP; 
3 8i7 094 NAMESPEC = .DATA_LISTC1); 
; 818 0948 WILDCARD = CHSFIND_CH(.NAMESPECCOJ, NAMESPECL1), %C'®'); 
; 819 0949 
; 820 0950 
; 821 0951 ! This symbol name contains wildcard characters. Set the flag to indicate 
3 Ss¢ Baas ! we have a wildcard symbol name. 
; 82 095 : 
; 824 0954 IF .WILDCARD NEQ 0 
; 825 0955 THEN 
; 826 0956 4 BEGIN 
3 Ger 0957 4 UTILITY_FLAG = TRUE; 
; 828 0958 4 
3 agp 0959 4 
; 830 0960 4 ! Append null character before begin character and after end character 
; 831 0961 4 ! in the string, if the begin and end characters are not ‘'*’’. Adjust 
3 He a20 ? : the count too. 
3; 834 0964 4 WILDCARD_NAME = WILDCARD_NAME_SETUP( .NAMESPEC); 
; 835 0965 4 
; 836 0966 4 
3; 837 0967 4 ! Break the wildcard symbol name into sub-strings. ie, A*B*C breaks 
3 ts B908 ? into A, B, C. 
: 80 0970 2 WILDCARD_PTR = WILDCARD_SUB_STRING( .WILDCARD_NAME) ; 
3 Beg 0972 4 
3; 84 0975 4 ! Since we have a wildcard symbol name, we have to go through all set 
: B44 0974 4 ' modules following symbol chain pointer for each module, and a 
; 845 975 & ! global symbols, check to see if each RST name matches the wildcard 
3; 846 976 4 ! symbol name pattern, and select those declared in the scope. Start 
3 847 977 & i from first Module RST Entry. find the first set module, set the 
3 rt 144 ? } symbol chain pointer to this as well. 
: 50 980 4 NEXTSETMOD = .RSTSSTART_ADDR; 
3; «851 981 4 WHILE .NEXTSETMOD NEQ 0°DO 
; 852 982 5 BEGIN 
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ET) 
RST 


; ep 983 é IF ,NEXTSETMODCRSTS$V sled T]_ THEN EXITLOOP; 

3 4 984 NEXTSETMOD = .NEXTSETMODLRSTSL_NXTMODPTR); 

3 Fi 985 4&4 END; 

: Bee aay 

; B36 +3 4 ! If we have all the module been canceled, set up the pointer to 

; $28 1434 ? ; search global symbol only. 

; 86) 0991 4 iF .NEXTSETMOD EQL 0 

: eer 344, : NEXTRSTPTR = .RSTSSTART_ADDRCRSTSL_SYMCHNPTRI 

; 865 995 4 NEXTRSTPTR = .NEXTSETMOD; 

; rt 3 : END ! End of setting up wildcard symbol name. 
: 869 999 4 

3 a 4 $ ! This is a normal symbol name. Set up the name via RST hash table. 

: 87 1002 4 BEGIN 

; 87 1003 4 UTILITY_FLAG = FALSE; 

; 874 1004 4 DBGSHASA_F IND_SETUP( .NAMESPEC); 

3; 875 1005 END; 

ie im 

; 878 1008 : Now that we have a scope search list to search. Go through candidate 
> 879 1009 ! symbols to see if the candidate is in the given scope. A ‘‘candidate 
; 880 1010 ' symbol"’ is a symbol whose name matches namespec, but which may not be 
5 rt ae in any of the scopespec scopes. 

: 88 1918 WHILE TRUE DO 

3; 884 1014 4 BEGIN 

Bo ORR 

; 887 1017 4 ! Get next candidate. If the flag is set --> this symbol contains 
3 Ht 1918 ? wildcard, call WILDCARD routine to handle it. 

; 890 1020 4 Uf UTILITY FLAG 

; 89 He & RSTPTR = WILDCARD_CANDIDATES( .WILDCARD_PTR, NEXTSETMOD, NEXTRSTPTR) 
; B96 1094 

; 895 1025 4 ! This symbol is normal symbol --> does not have wildcard, call 

3 10 4 ! hash routine to handle it. 

; 89 10 4 : 

3 538 1028 4 ELSE 

; 900 18 4 2 RSTPTR = DBGSHASH_F IND( .NAMESPEC); 

> 901 1031 4 

: 90 10 § 4 ! Check to see if we have run through all the candidates. If we 

; st 987 : : do then we are all done. 

: 905 1035 4 iF .RSTPTR EQL 0 THEN EXITLOOP; 

: 309 1039 

; 908 10 3 4 ! Loop through the scope search List to see if this candidate symbol 
: 909 10 4 ! is in scope. Assume we have not found a scope yet. 


133 0-74 Page 21 
16-Sep-1984 9 39:38 Ax-11 Ot igsete v4. ; (di 

mite -$ep-1984 12:17: DEBUG. SRC JDBGSYMBOL .832;1 

voe=000- 12738871382 93 

; 910 1040 4 ‘ panes 

: 313 1903 INCR | FROM 4°10" .DBGS.SCOPELSTEO) DO 

5 aig 1 rk 4 

; 91 104 BEGIN 

315 104s by followi the upscope 

; e andidate by following u 

; 819 1909 chain fron each candidate. Ast eg ee A Rea, He ad 

: gis 1948 aoe T PDIRECT fs opee ified select only those candidate 

: 9 198 i compete ohtel irectly in the scope, but not those 

: 380 1989 etared aaenel nateia che sete yONTI is used to keep track 

: 3 1086 of the number of upscopes. 

: 382 19a SYMSCOPE = .RSTPTR: 

: 3 5 1055 CNT1 = A 

: 926 1056 : WHILE TRUE DO 

: 927 1057 6 BEGIN 

3 BR pel cate op 

: if this candadite symbol is in scope. 

/ 380 1908 $ i ag Ry to indicate the case. 

4 i 

: 338 1908 6 iF .SYMSCOPE EQL .DBG$_SCOPELSTC.1] 

HE Hei 

: N 

: 38 igea IN SCOPE = TRUE: 

: 937 1067 7 EXTTLOOP; 

; 938 1068 6 END; 

; 939 1069 6 

: rk 1974 3 ! Check to see if we are at the module level. If we are, 

+ 94 1072 6 i exit. 

: ote 1978 3 if - SYMSCOPECRSTSB_KIND] EQL RSTSK_MODULE THEN EXITLOOP; 

+ 945 1075 6 

; 309 1999 6 ! If this is a type component, go up-scope once more to its 

+ 948 1078 6 i type. 

: 366 1980 3 if « SYMSCOPECRSTSB_KIND] EQL RSTSK_TYPCOMP 

; 333 1082 3 THEN MSCOPE = .SYMSCOPECRSTSL_UPSCOPEPTRI; 

: 95 108 é 

: $38 ions ¢ itch is on, we only need to go 

: HA 1983 3 thre gow Ss ose if we have, if so, exit. 

; 4 1088 3 if -DBG$_QUALIFIERCSYMBOL_DIRECT] AND (.CNT1 EQL 1) 

: TH 

: 360 1990 3 EXITLOOP; 

; 362 1092 3 SYMSCOPE = .SYMSCOPECRSTSL_UPSCOPEPTR); 

: 96 1093 6 

: 38s 1998 ' Increment the upscope counter. 

: 965 +644 6 

: 966 1096 6 : 
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; 1097 CNT1 = .CNT1 ¢ 1; 

; 968 1 28 END; ! End of WHILE checking candidate 

2 3 H i$ 3 : symbol in scope. 

; 971 1101 ' Check to see if we have selected the candidate, if so, exit. 
; 44 8 ¢ } Otherwise, check the next scope in the scope search List. 

: ore 1% : IF .IN_SCOPE THEN EXITLOOP; 

; 97 1108 4 END; ' End of INCR checking candidate symbol 
; 97 11 4 : in the scope search List. 

; 97 1108 4 

; 97 1109 4 

; 980 1110 4 ! We have found this symbol is in the scope. Before interface to 
; 981 1111 4 ! output routine to show the information about this symbol according 
;: © 11g 4 ! to the given quet itier. do a check to make sure this symbol has 
; 98 1115 4 ! a name, if this symbol does not have a name, we simply ignore it. 
; 984 1114 4 i And also ignore the TYPE RST entry. Only if /TYPE is specified, 
; 985 1115 4 ! then the TYPE RST entry will be taken care of. 

; 986 BY 4 ; 

; 987 111 4 IF_ .IN SCOPE 

; 988 1118 4 THEN 

; 989 1119 5 BEGIN 

; 990 11st 5 NAME = DeGSGET DST_NAME(.RSTPTRCRSTSL_DSTPTRI); 

; 991 1 1 3 F .NAMECO) NEG O AND .RSTPTRCRSTSB_KIND] NEQ RSTSK_TYPE 

3 393 1188 6 BEGIN 

; 994 1124 6 eerie eet NCANDS); 

; 995 1125 6 DATA_LISTC2) = .NCANDS; 

; 996 1126 5 D; 

; 997 1127 4 END; 

; 998 1158 4 : 

; 999 1129 END; ! End of WHILE selecting all candidate 
; H's 1130 ! symbols. 

3 4 1136 IF .UTILITY_FLAG THEN DBGSREL_MEMORY( .WILDCARD_NAME) ; 

; 100 113 DATA_LIST = .DATA_LIST(O]; 

3 1004 1134 § END; ! End of WHILE data symbol List. 

: 1005 1135 

3; 1006 1138 

3 44 3 All done. Release the memory blocks. 

: 1009 1139 IF .SYM_SCOPESLIST NEQ 0 THEN DBGSREL_MEMORY(.SYM_SCOPESLIST); 3 
3 1919 1369 DBGSREL_MEMORY(.DBGS$_SCOPELST); 

3: 1011 114 

; ote Bg | 

3; 101 114 ' If we have found any candidates then return TRUE. 

3 1014 1144 ‘ 

3 1015 1145 

: 1016 1146 


-PSECT DBGSPLIT,NOWRT, SHR, PIC.0 


3 47 42 44 $3 tied P.AAA: . ASCII \2%DBGSYMBOL\<92>\DBGSSTA_SHOWSYMBOL, err\ = ; 


4 47 42 46 SC 4C 4F 42 40 5 
s¢ 4C 4F 42 4D 59 53 $5 4F 4 000F : 


RETURN .NCANDS GTR 0; 
END; 
SF 41 «(54 
! 


- 
voc 


-000 


0025 


04 
001C 


000000006 


00000000° 
00000000° 
00000000° 
00000000° 
00000000' 


000000006 


000000006 


000000006 


i 


36 $f 85 82 80025 


OFFC 00000 
5E C2 0000 
DD 0000 
Dd 90009 
4 
00 93 FB B08 
Be 001 
00000000" EF 5 0014 
29 04 AC DO OO01A 
5 08 Aad 00 Be 5 
50 04 Ad 09 00 
3F 13 00026 
01 60 BF 00028 
13 Q00A 002C 
002E 000 
EF 02 88 00036 
9 11 80085 
EF 04 88 0003F 
19 11 00046 
EF 08 88 00048 
10 11 QO04F 
EF 10 88 00051 
3 11 00058 
F 0 88 450) 
0 08 AO 00 00061 
BF 11 00065 
52 OC A3 BO 00067 
4 04 00068 
§ rf 0060 
1 Bnet 
4 b6 0071 
E 7C 0007 
9 35 Op door 
0 it FB QOO7A 
0 08 AF. 00084 
1 1 . 
OC AE OF A 
6240 0D 3 
00 02 FB 
oc at 0D 9 
dD 9A 
00028E58 fF 0D 9 
0 3 FB A 
24 AE D4 A 


Sep! 
-seo- 
~Sep-i 


1$: 
28: 


3$: 
4$: 
5$: 
6$: 


7$: 
8$: 


9$: 


Be 98:47 


ASCII 


38 


AX-11 Ot igen oP gt 
DEBUG. SRC JDOBGSYMBOL .B832;1 


DBGSCODE ,NOWRT, SHR, PIC,0 


DaGSSTA SHOWSYMBOL . Save R2,R3,R4,R5,R6,R7,-; 
RB.RI,RTO,R11 
46, §p 


4 
a 
SPRINT CONTROL 
PE 


$LIST 
UALIFIER 


ow 
ocon 
=] 
m 


R 
R 
{ADYERB_NODE), #1, #4 


#2, DBGS_QUALIFIER 
#4, DBGS_QUALIFIER 
#8, DBGS_QUALIFIER 
#16, DBGS_QUALIFIER 


#32, DBGS QUALIFIER 
8(ADVERB_RODE), ADVERB_NODE 


$ 

12(NOUN_NODE), SCOPESPEC 
SCOPE SPEC 

10$ 

R4 

=(SP) 

etl s 3 

OPE LIST 


BAD_SCOPE 
(SCOPE SPEC) CROJ 
#2, DBGSNPATHDESC_TO_CS 
BAD. SCOPE 

#167512 

#3, LIBSSIGNAL 

NCANDS 


8 
20 as 000000006 RSTSSTART_ADDR, NEXTSETMOD 
5 20 NEXTSETMOB, R2 


1 
A 460(R2), 188 09 
. s PUSHL R ? 090 
0000v CF - CALS ; ANS SCOPE SEARCH_LIST 
% AE 10 6 188: ROVL tne “NEXTSETMOD 9913 
000000906 : 19$: PUSHL | R RSTSSTART ADDR 0919 


0000v CALLS ANBLD SCOPE ~SEARCH. LIST 


208:  MOVL Dges. SCOPELST> 
TSTL 1m SCOPESLIST 


PUSHL Sv. SCOPESLIST 

“DBGSREL_MEMORY 

218: PUSHAB 4 VAR 
PUSHL = #i 


F 
56 00000000° 


000000006 00 
00000000° 


m 13 
16-Sep-1984 AX-11 Bliss-32 v4.0-74 Page 24 
13-808- 138 96: 3 3 DEBUG. SRC IDBGSYMBOL .B3 31 | 9 a) 
79 4 €9 QO0AC BLAC 3 —ss«aRG,,_:168 : 0799 
7 D4 AF CLAL cnf : 80¢ 
4 04 0008 CLRL = CNT + 080 
52 9 D MOVL YM_SCOPESLIST, SCOPEPTR : 0808 
F 1 B6 11$:  BEQL 3S” ; 0809 
56 1D 8 MOVL UTILITY_FLAG : 0817 
7 6 8 INCL it : 0818 
1% A 08 Ag D 8 MOVL (SCOPEPTR) , SCOPE + 0819 
0 4 A pt ¢ CMPL 4(SCOPEPTR) at + 0825 
2— 12 C BNEQ : 
1 AE OF PUSHAB TaVOCNUM : 0828 
1 AE gf 90cB PUSHAB SCOP : 
: AE OF ¢ PUSHAB MODRSTPTR : 
C Ad DD 0000 PUSHL  12(SCOPEPTR) : 
000000006 00 04 FB 00004 CALLS #4, DBGSSTA_NUMBERED_SCOPE : 
18 AE 05 00008 TSTL § MOORSTPTR : 0836 
16 1 0D BNEO : 
OC A2 0D O00E PUSHL  12(SCOPEPTR) + 0839 
0 DD OO0E PUSHL : 
00028678 8F DD O00E PUSHL #165499 : 
000000006 00 3 FB 00 CALLS #3, LIBSSIGNAL : 
4 06 00 INCL CNTF t 0840 
D4 00 CLRL UTILITY_FLAG + 0841 
03 06 =#OA 0} S 128: cre a gCOPEPTR) . a3 : 0851 
14 AE 000000006 09 06 0 MOVL RSTSSTART ADDR. SCOPE > 0853 
08 6 €9 00104 138:  BLBC  UTILITY_FCAG, 148 : 0858 
16 AE DD 00 PUSHL SCOPE | F 
28 «AE OF 00 PUSHAB NCANDS : 
0000v CF 02 FB 00 CALLS #2, BLD_SCOPE_SEARCH_LIST : 
52 62 DO 00112 148:  MOVL (SCOPEPTR), SCOPEPTR™ + 0863 
9F 11 00 BRB 11$ ; 0809 
54 7 01 00 15$ CMPL =soCNT1, CNT2 : 0873 
D 12 00 BNEQ 208 : 
9 OD 00 PUSHL SYM_SCOPESLIST : 0876 
000000006 00 01 FB 00 CALLS #1, DBGSREL_MEMORY : 
01 31 00 4 : 0877 
DO 00 ; 
D0. F 
1 3 
f : 
bb ; 
F : 
F : 
. 


a Oo oy ee A yy re OOO BARA wM 
SFIESFRSSFUASSEVASS ESR aas ans sQRoaso eww 
— 

NO 
AA 

ow 

amas 
@Qo«c<«c ec 
errr 


SOMOVWOVPIM OO FOMPOPuS— PO 
—=—DOOf MoM SUmTOMmnORIMOD 


<o | 


pee 
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vw 
we 
* 
~ 
en 
w 
<Q 


00028362 8F 0D 00177 PUSHL #164706 : : 
000000006 00 ; re r CALLS LIBSSIGNAL : : 
60 34 AE 00 001 3: MOVL NCANDS, (RO) : 398 : 
4 AE 04 OO1BA 238: CLRL = NCA : 3 : 
53 DO 0018D 24$ MOVL (NOUN_NODE) , DATA_LIST + 094 ; 
} 1 BNEG + 0946 : 
010A 19 BRW 6$ ; ; 
55 04 a3 0 00195 25$:  MOVL 4 (DATA_LIST), NAMESPEC + 0947 : 
20 A 00199 MOVZBL ( NAME + 0948 ; 
01 «AS A 3a 0019 LOCC ase, RO, 1(NAMESPEC) : : 
é é 1A BNEQ ; ; 
1) 1A CLAL ‘ 3 3 
aa 1 DO OO1AS 268:  MOVL 1, WILDCARD ; : 
431 108 BEQL 318 + 0954 : 
56 91 DO OO1AA MOVL , UTILITY_FLAG : 0957 F 
5 DD OO1AD PUSHL MESPEC ; : 
0000v cf 1 FB O1AF CALLS WILDCARD _NAME_SETUP : ; 
A 0 00 00184 MOVL RO: WILDCARD-NAME~ ; : 
A 0D 00187 PUSHL WILDCARD NAM + 0970 ; 
0000v CF 9) FB 00189 CALLS » WILOCARD_ sup. STRING 3 : 
58 0 00 001BE 4 WILDCARD -PTR™ ; : 
51 000000006 00 09 01C1 MOVL  RSTSSTART_ADBR, R : 0980 : 
20 A 51 DO 001¢8 MOVL  R1, NEXTSETMOD : ; 
5 20 AE DO OO1CC 278: MOVL NEXTSETMOD, RO + 0981 : 
0D 1 9109 BEQL $ ; : 
07 28 AO €8 001D BLBS 40(RO), 288 : 0983 : 
20 AE 10 AO 00 00106 MOVL 16(R0), NEXTSETMOD + 0984 ; 
FF 11 00108 BRB > : 0981 : 
7 13 0100 28%: § BNEQ 0$ : 0991 : 
1c AE 08 Al 0g ODF 9$: MOVL (R1), NEXTRSTPTR : 0993 : 
1¢ AE 20 AE DO 001E6 30S:  #$MOVL =NEXTSETMOD, NEXTRSTPTR : 0995 : 
B 11 OO01EB BRB + 0954 : 
$ D4 OOIED 31S: CLAL UTILITY FLAG + 1003 : 
55 DD OOTEF PUSHL NAR : 1004 F 
000000006 00 01 FB O1F1 CALLS DBGSHASH. FIND_SETUP ; ; 
OF 56 : O1F8 32%: BLBC Oriuits FLAG, 3387 : 1020 : 
1c 6 AE. «OOF 001FB PUSHAB NEXTRSTPTR > 1022 : 
26 AE OF OOTFE PUSHAB NEX TSETMOD : 3 
: DD 00201 PUSHL W LDCAR ; 3 
0000v CF FB 00 CALLS GILDCARD.. CANDIDATES 3 3 
9 11 00 BRB 34g ; : 
5 DD A 33$:  — PUSHL PEC : 1029 : 
000000006 00 1 F CALLS nn spe HASH_F IND : : 
54 p 13 34$:  MOVL RO, RSTPTR : ; 
1% BEQL 44 : 1035 : 
D4 1 CLRL IN_SCOPE : 1041 i 
bs 1A CLRL l : 1088 i 
¢ 11 1C BRB 41$ F : 
52 4 00 If 358: ROVE RSTPTR, SYMSCOPE : 10536 ; 
00000000'F F 40 é D1 3 36$: CPL BT cores @DBGS$_SCOPELSTCI) ; 1963 ; 
58 1 6 MOVL y IN SCOPE 31 F 
01 1% A2 91 37%: CMPB 2 _ Rite a > 1074 ‘ 
| 
| 


- 
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/ 04-000 yeagee~tG8e 9S:FF8s HOME NL Shigsese eaOn Zee wD 
1f 13 6 BEQL 408 ; 
OA 14 Ae 4 ; cHPB (SYMSCOPE), #10 : 1080 
52 10 A 8 5 MOVL (SYMSCOPE), SYMSCOP : 108 
05 00000000' FF 9 E1 42 38%: BBC #3, DBG$_QUALIFIER, 39$ + 108 
1 D1 O024A CMPL ~sCGCNT'1, #1 : 
0 13 40 BEQL : 
52 10 A2 D0 4F 39$: MOVL 16¢SYMSCOPE), SYMSCOPE ; 1092 
57? 06 3 INCL NT t 1097. 
c¢ 11 00 BRB + 1056 
B 7 7 40$:  BLBS  IN-SCOPE, 42$ + 1104. 
BC 9 00000000" FF F A 41S: AOBLEQ aDBG$ SCOPEL ST. 1, 35$ ; 104¢ 
58 £ 6¢ BLBC IN SCOPE, 32 + 111 
OC A& DD 00265 428: PUSHL TRSTPTR) : 1120 
000000006 00 gi i 0 68 CALLS 4p DBGSGET_DST_NAME : 
04 BE 95 00 $f TSTB NAME + 1121 
80 13 00 2 BEQL 8 ; 
07 6 AG 9} 00 7 CMPB =s-«DO(RSTPTR), #7 : 
OF 13 O027C BEQL = 4 F 
24 AE OF O027E PUSHAB NCANDS + 1126 
54 DD 00 81 PUSHL RSTPIR : 
0000v CF 02 FB 0283 CALLS #2, SHOW SYMBOL ; 
08 A3 24 a 4 38 88 MOVL NCANDS, B(DATA_LIST) : 1125 
FF68 31 0028D 43$:  BRW 32$ : 1013 
09 56 £9 00 30 44$:  BLBC  UTILITY_FLAG, 45$ + 1132 
5A 0D 0029 PUSHL WILDCARB_NAM ; 
000000006 00 ned te 44 32 ase CALLS a DBGSREL_MEMORY 3 “190 
33 D3 O029F 46S: TSTL § SYM_SCOPESLIST : 1139 
9 13 002A1 BEQL 47% ; 
9 oD 00 a3 PUSHL  SYM_SCOPESLIST ; 
000000006 00 01 FB OO2A CALLS #1, DBGSREL_MEMORY ; 
00000000" EF DD OO2AC 47$ PUSHL  DBG$_SCOPELST : 1140 
000000006 00 1 FB 0 Be CALLS He BBGSREL_MEMORY ee 
24 AE D> 0288 TSTL © NCANDS ; 
9 15 00 BE BLEQ 49% F 
0 96 002C INCL RO ; 
04 002¢ RET : 
50 D4 002C3 488: CLRL ~—_ RO + 1146 
04 002C5 498: RET ; 


; Routine Size: 710 bytes, Routine Base: DBGSCODE + O0ES 


SS 
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VALPTR = 0; 
CASE.» SYMIDCRSTSB_KIND] FROM RSTSK_KIND_MINIMUM TO RSTSK_KIND_MAXIMUM OF 


FSES 


3 1918 {el ! GLOBAL ROUTINE DBGSSTA_SYMADDR(SYMID, ADDRPTR, ADDRKIND): = 

3 1350 1149 1 ! FUNCTION 

; 1021 1190 7 3 This routine takes a SYMID and gets the address information associated 
; 10¢¢ 1151 1! with the input SYMID. NOTE: This piece of code is taken from 

; 195 1126 1} DBGSSTA_SYMVALUE with some modifications, so any changes made in there 
; 13 ¢ Vez : that impact the logic should be made in here as well. 

: 1036 1155 1°! INPUTS 

; 1027 1156 1! SYMID - Symid ID for the symbol. 

3; 1028 1157 1! 

3 1063 1128 73 ADDRPTR = The edgress of a two-longword vector to receive the address 
; ioe Fe : specification of the symbol. 

; 1032 176) 1! ADDRKIND = The address of a longword location to receive the address 

; 1033 1166 24 kind. 

: 1034 1165 1! 

; 1035 1164 1 ! OUTPUTS 

: 1938 13¢2 } ADDRPTR = A pointer to the desired address is returned to ADDRPTR. 

; 1938 +24 : } ADDRKIND = The kind of the address is returned to ADDRKIND. 

3 1040 1169 1! Return 0 or a pointer to VALSPEC for a data symbol to the caller to 

3 1041 1170 1! continue unfinished address interpretation. 

: 1042 11771 1! 

3 1043 1106 1 

3 1044 1173 2 BEGIN 

3 1045 1174 2 

: 1046 ttle P 

3 1047 1176 2 ADDRKIND: REF VECTORC1), ! Address kind 

3 1048 1177 2 ADDRPTR: REF VECTOR(.2), ' Address vector 

: 1049 1178 2 SYMID: REF RSTSENTRY; ! Pointer to symbol's RST entry 

: 1050 1179 2 

3; 1051 1180 § OCAL 

3; 1052 1181 DSTPTR: REF DSTSRECORD ! Pointer to Symbol's DST record 

3; 1053 1182 2 PSECT_TRAILER: REF DSTSPSECT_TRAILER, 

3; 1054 1185 2 STKFMPTR: REF VECTORE,LONG), ! Stack frame pointer from Stack Machine 
3; 1055 1184 ' (needed for passing parameters) 
: 1056 1185 VALPTR: REF DSTSVAL_SPEC; ' Pointer to VALSPEC 

3; 1057 1186 

; 1058 1187 

3; 1059 1188 

; 1060 1189 

3: 1061 1190 

3 1 ; 1191 

3: 1 1136 

; 1064 119 ! For instruction addresses, return the start address in the RST entry 
3: 1065 1194 ! in ADDRPTR(O). If i is a lexical entity, return the end address in 
3: 1066 1195 ! RST entry in ADDRPTR(1). 

3 1067 1138 ' 

> 1068 119 ERSTSK_ROUT INE, RSTSK_BLOCK, 

3; 1069 1198 RSTSK_LINEJ: 

3; 1070 1199 BEGIN 

3; 1071 1200 ADDRPTR(O) = .SYMID $b a Mah R); 

: 1076 1201 ADDRPTRL1) = .SYMIDCRSTSL_ENDADDOR); 

3; 107 1 6 ADDRKINDCO) = DBGS$K_ADDRKTND_ABS; 

3; 1074 120 END; 


ree 8 
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197) 1508 he start address in the RST entry 
: 1205 addresses, return the s 
1079 1206 i iRTADDRPTREGI® and O° in AODRETRETI. 
: 1979 1508 ERSTSK_ENTRY, RSTSK_LABELD: 
 10R) 1540 BEGIN 
: 108 1211 e pick the PSECT start 
; 121 PSECT DST record. Here w 
; 1988 1 1§ ; saaraan divest from the DST record. 
> 1085 i , 
; 1215 : P RSTSL_DSIPTRI 
: 1087 1519 TF pete re bsts8 TYPEI EQL DSTSK_PSECT 
; 1088 THEN 
: 1089 1518 BEGIN T.TRLR_BASE) + 
; 4 = DSTPTRCDSTSA PSEC Re 
: 1091 1320 4 vepnpanndesiPiRCSt se PSECT TRLR OFFS), 
* 109 1221 4 ADDRPTRLO] = .DSTPTREBSTSL_PSECT- VALUE); 
wm es scoie 
; 1098 \sse : ' Get to the PSECT trailing record to pick up en 
; 1096 : : ] + .PSECT_TRAILERLDSTSL_PSECT_ -1; ¢ 
> 1097 1226 4 ADDRPTRL1) = .ADDRPTRCO] + . * 
We ee MS 
1 HG 
; 1103 1231 4 TS AOTR 0) = .SYMIDCRSTSL_STARTADDRI; 
1108 1S3¢ ADDRPTRE1) = 0; 
¢ 110% 1534 3 END; 
1106 \s3? ¢ ADDRKIND{O] = DBGSK_ADDRKIND_ABS; 
; 1107 ND: 
: 1109 1338 ddress from DST 
; 1149 1339 : For Data and Type Components, we determine the a 
3 Att 1s¢9 i value specification. 
: 1118 stg ERSTSK_DATA, RSTSK_TYPCOMP): 
- N 
; 12464 8 RSTSL_DSTPTRI; 
: 116 1Sea CASE SDSTPTREDS ISB. TYPE FROM 0 TO 255 OF 
3 1117 SET 
* 1118 1267 ; | 
: 1119 1549 ds, i.e., those uf the standar 
Bt : | format" Find’ the Value Spec: and’ pass Tt fo: DBGSSTA, YALADDR 
3 11¢¢ 1382 i for address, computation. 
at : TO DSCSK_DIYPE_HIGHEST, 
: is He ie a HLA 
i 136 borer Rt CBE RLENUMECT): —~ 
i 11 125 DSTSR-RECBEG, DSTSR_ 
: 1159 6 VACPTR = DBGSSTA_ADDRSPEC(.DSTPTR, .ADDRPTR, .ADDRKIND); 
; 1130 1g? ¢ END; 
3 1131 1260 3 


not provided. 
DST$K LABEL: 


Se ee 
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138 
134 Handle the Label DST record. Here we get the Label address 
: é directly from the DSTSL_VALUE field -- the DSTSB_VFLAGS is 
8 
9 


ADDRETREO = ,DSTPTRCDSTSL_VALUE); 
ADDRPTRE1) = 0; 
ADDRKINDL 1 = BBGSK_ADDRKIND_ABS; 


} Handle the Bliss special Cases DST record. 
{DST$k_BLI): 
nl: = DBGSSTA_ADDRSPEC(.DSTPTR, .ADDRPTR, .ADDRKIND); 


MOPORIPONOPEPoPonoToTnononofnorornrnnrnr 


OOD SII NNN SIA PA AAO OOOm 


NOME WN 0 ODO UE UN $9 OD NA UNE WIN O OONOAU EWN SO OONAOUES WN OOONOUS WR 


} Handle the Bliss Field DST record. 


COSTSK_BLIFLD): 
BEGIN 
ADDRPTR(O) = 0; 
ADDRPTRL1) = 0; 
ADDRKINDLOJ = DBGSK_ADDRKIND_BLIFLD; 


' Handle the COBOL Hack DST Record. Here we just indicate 
this is too complex to compute. 


CDSTSK_COB_HACK): 
BEGIN 
ADDRPTRCO 
ADDRPTRL1 
ADDRKINDLOJ 
END; 


0: 
= DBGSK_ADDRKIND_COMPLEX; 


Any other DST record treated as invalid address. 

CINRANGE, OUTRANGE): 
ADDRPTR(O) = 0; 
ADDRPTR(1]) = 0; 
ADDRKINDLO) = OBGSK_ADDRKIND_INVALID; 
END; 

TES; 

END; 
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GTH = .VAX 4H 
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5 i 
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' 
8 ' INPUT 
11 9 13 
1g 40 1: 
1 41 ' OUTPUT 
14 tg ‘ 
15 4 ! 
16 44 
17 45 BEG! 
18 6 
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GLOBAL ROUTINE DBGSTRANSALATE _DESCR(VAX_DESCR): NOVALUE = 
FUNCTION 


Given pointer to VAX Standard Descriptor, transalate its information 
into readable format. 


VAX_DESCR = Pointer to VAX Standard Descriptor. 
None. 


P 
VAX_DESCR: REF BLOCKC, BYTE); 


L 

BOUNDS_PTR: REF VECTOR, ! Pointer *o Bounds for Array Descriptor 
DTYPE, ! Atomic uata types 

LENGTH; ' Length of the object 


oOmrm 


DTYPE); 
Q Swit 
gg yAtaPes D ASS] FROM DSCS$K_CLASS_S TO DSCS$K_CLASS_UBA OF 


! Scalar, String Descriptor, is used for scalar data and fixed-length 
! strings. Any VAX data type can be used with this descriptor, except 
! bit unaligned. (DTYPE 34). 


' 
' 
' 
' 
eDSCOE CLASS_S31 
IF ((.DTYPE GEQ DSCSK_DTYPE_T) AND (.DTYPE LEQ DSCSK_DTYPE_P)) OR 
(.DTYPE EQL DSC$K_BTYPE_9) OR 
£.DTWPE EQL DSCSK_DTYPE_vu) 
DBGSPRINT(UPLIT BYTE(ZASCIC’string descriptor type,'), 0) 
DBGSPRINT(UPLIT BYTE(ZASCIC’scalar descriptor type,'), 0); 


DBGSTRANSALATE_TYPECODE(.DTYPE); 
DIVPE LENGTH (LENGTH); 


Dynamic String Descriptor, is used for dynamically allocated strings. 
CDSC$K_CLASS_D): 
BEGIN 


DBGSPRINT(UPLIT BUTE EAST EE Sroente string descriptor type.,"), 0); 
DBGSTRANSALATE_TYPECODE( .DTYPE); 
DIVPELENGTHCLENGTH) ; 
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Array Descriptor. 


Coscsx CLASS.A, DSCSK_CLASS_NCA, DSCSK_CLASS_UBAJ: 
SELECTONE .VAX_DESCRCDSCSB_CLASSJ OF 


! Array Descriptor, is used to describe contiguous arrays of atomic 
data type or contiguous arrays of fixed length strings. 


CDSC$K_CLASS_AJ: 
DBGSPRINT(UPLIT BYTE(ZASCIC’ array descriptor type,'), 0); 


' Noncontiguous Array Descriptor describes an array where the storage 
! of the array elements may be allocated with a fixed, nonzero number 
} of bytes separating logically adjacent elements. 


CDSC$K_CLASS_NCA] 


CA]: 
DBGSPRINT(UPLIT BYTE(ZASCIC ‘noncontiguous array descriptor type."), 0); 


! Unaligned Bit Array Descriptor, is used to specified an array of 
unaligned bit strings. 


CDSC$K_CLASS_UBA): 


om DBGSPRINT(UPLIT BYTE(ZASCIC ‘unaligned bit array descriptor type."), 0); 


DBGSPRINT(UPLIT BYTECZASCIC * !UL dimensions,'), .VAX_DESCRIDSCS$B_DIMCT)); 


Point to the lower and upper bounds of the array. 


DBGSPRINT(UPLIT BYTE(ZASCIC ° bounds: C'), 0); 
BOUNDS_PTR = VAX DESCREDSCSL MI : 
BOUNDS"PTR = BOUNDS PTR -VAXTDESCREDSC$B_DIMCT 1; 

INCR BOUND_NO FROM T TO .VAX-DESCRCDSCS$B_DIMCT) BO 


BE 
A _ Soe Me EQL .VAX_DESCRCDSCS$B_DIMCT)) 


DBGSPRINTCUPLIT BYTECZASCIC *!SL:!StJ"), 
ret et Fb ore ee - 1) « 2)], 
ELSE -BOUNDS_PTRE((.BOUND_NO = 1) * 2) * 1)) 


DBGSPRINT(UPLIT BYTECZASCIC "!SL:!SL,"), 
-BOUNDS_PTRE((.BOUND_NO - 1) © 353, 
“BOUNDS ~“PTRE((.BOUND"NO = 1) * 2) # 13); 


NO 
NO 


! Procedure Descriptor, is used to specifies its entry address and 


YMBOL .832;1 


N14 
ye=zepn 138s 93:39:88 = Hokeue.Baciowcsymoae.oss;1 (AM CB 


3 1 18 re | ! function value data type, if any. 

3; 131 144 ‘ 

; ! 39 1468 toscsx CLASS_P): 

: 1 1450 DBGSPRINT(UPLIT BYTE(ZASCIC'procedure descriptor type."), 0); 

3 3 1451 DBGSTRANSALATE_TYPECODE( .DTYPE); 

; : : 1? 4 IF gLENcTH EQL~0 

: : $ 1484 DBGSPRINT(UPLIT BYTE(ZASCIC’, no function value is returned’), 0) 
: 1328 1486 DBGSPRINT(UPLIT BYTE(ZASCIC’, function value size: !UL"), 

: 1329 ie LENGTH); 

3 3 14 : 

Weg os 

:1 : 1461 

3 \ : 1606 Reserved for use by the VAX Debugger. 

: 1 1464 tosc$k_CLASS_J): 

: 1338 1466 DBGSPRINT(UPLIT BYTE(ZASCIC’ Label descriptor type’), 0); 

He 1h = 

> 1341 1469 

5 1 ; 1470 ! Decimal Scalar ore Descriptor, is used to describe decimal size 

3 1344 pg and scaling information for scalar data and simple strings. 

5 1345 1278 CDSCSK_CLASS_SDJ: 

3 1346 1474 

; : H 102? IF gVAXDESCRCDSCSV_FL_BINSCALE) 

: : $5 pth DBGSPRINT(UPLIT BYTE(ZASCIC’binary scalar string descriptor type,*), 0) 
> 1351 1479 DBGSPRINT(UPLIT BYTE(ZASCIC’decimal scalar string descriptor type.'), 0); 
3 3 28 1480 DBGSTRANSALATE_TYPECODE( .DTYPE); 

3; 135 1481 DTYPE_LENGTH(LENGTH); 

3 13546 re 1 & If NOT ((.LENGTH EQ .VAX_DESCRCDSC$B_DIGITS]) AND 

3 : 2 oe t 4 es (, VAX_DESCRCOSCSB_DTYPE) EQL BSC$K_DTYPE_P)) 

: 1357 1485 DTYPE DIGITS(VAX_DESCRCOSC$B Ri6ITS2); 

3 1358 1486 DTYPE_SCACE(VAX_DESCRCDSC$B_SCALE)); 

3 ' 59 He 14 END; 

3 1361 1489 

3 : § ion Varying String Descriptor, is used for varying strings. 

: 1 1498 Coscsx CLAass_vs): 

{ 138 BSSRINE PHL BOTEGRERCLE gsi string descriptor tpe,"), 0) 
3:1 1496 DBCSPRINTCUPLIT BYTECRASCIC". size: ‘UL bytes*), .VAX_DESCRCDSCSU_MAXSTRLEND) ; 
st = 

: 1371 14 

31 A 1500 ! Varying String Array Descriptor, is used to specified an array 

3 : ? 133) of varying strings. 
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CDSCOR FLAS VSAIs 
DBGSPRINT(UPLIT BYTE(ZASCIC ‘varying string array descriptor type,"), 0); 
DBGSTRANSALATE_TYPECODE( .DOTYPE); 
TECRZASCIC ', size: !UL bytes’), .VAX_DESCREDSCS$W_MAXSTRLEN)); 


DBGSPRINT(UPLIT BY 
END; 


cot A Bit String Descriptor, is used to pass an unaligned bit 
' string. 
! 


toscsx CLASS_UBS]: 
DBGSPRINT(UPLIT BY ‘unaligned bit string descriptor type,'), 0); 


TE(RASCIC 
DBGSTRANSALATE _TYPECODE( .DTYPE); 
DOGSPRINT (UPLIT BYTECZASCIC ', size: !UL bits’), .VAX_DESCRCIDSCS$W_LENGTH)); 


sang 7 yt OUTRANGE): 
A enihenbeediectte BYTE(ZASCIC ‘undefined descriptor type’), 0); 


TES; 


RETURN 0; 
END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


67 6€ 69 72 74 73 17 000 g P.AAB: .ASCII <23>\string descriptor type,\ 
70 79 74 20 72 6F 74 000 
7 $1 6C 61 635 73 17 QOO3SE P.AAC: .ASCII <23>\scalar descriptor type,\ 
70 79 7% $ of 6F 74 00040 
65 7A 69 C O07 00056 P.AAD: .ASCII <7>\, size:\ 
62 20 4C § 1 20 09 Ft 3 eAAE: ASCII <9>\ 'UL bits\ 
64 20 4C 55 1 8 B 00068 P.AAF: .ASCII <11>\ 'UL digits\ 
6 0 4€ 55 21 A 00074 P.AAG: .ASCII <10>\ !UL bytes\ 
6 $p 61 $f 9 66 IF 9d 4a P.AAH: .ASCII] <31>\dynamic string descriptor type,\ 
69 72 63 65 : 1 OO8E 
65 7A 69 3 0 3 P.AAI: .ASCII <7>\, size:\ 
62 4C 1 9 A7 P.AAJ: .ASCII <9>\ 'UL bits\ 
64 4c 55 21 B B1 P.AAK: .ASCII <11>\ !UL Gigies\ 
§ 4¢ 55 21 A P.AAL: .ASCII <10>\ 'UL bytes\ 
é 4 $1 ¢ 3 } : P.AAM: .ASCII <22>\array descriptor type.\ 

— 6F ; 6 i 4 DF P.AAN: .ASCII \$noncontiguous array descriptor type.\ 

20% gi fe 1&1 cE e 
¢ 65 70 79 7% § ¢ FD 
9 $6 $1 ts ; é1 198 P.AAO: .ASCII \Sunaligned bit array descriptor type,\ 

ERR RAS Rs . 

4 20 4C 55 21 1 129 P.AAP: .ASCII <16>\ 'UL dimensions, \ 
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DBGSYMBOL 1b-$e =1984 239: AX-11 Bliss-32 V4.0-74 Pa 40 

v04-000 12-8 08- 1 obe 96:79:38 DEBUG. SRC IDBGS YMBOL .83 31 ws (6) 
f 73 13 : 
5B 20 3A 73 $ —€ 75 6F A 135A P.AAQ: .ASCII <10>\ bonds {\ ; 
dD 4C ; 1 3, 4C 1 $ 145 P.AAR: ASCII <B>\!SL:!SLIN : 
$f 6 5 1 A 4C 1 136 P.AAS: .ASCII <B>\!SL:!SL,\ : 
63 73 65 64 20 65 § 7 $e $3 63 of § g 1A 157 P.AAT: .ASCII <26>\procedure descriptor type,\ 3 
20 6E 6F aS $? ig f re 6 6 ef é 8 0 ie a7 P. AAU ASCII <31>\, no function value is returned\ : 
6E 72 75 74 65 $3 $f a 69 3 és 95 6¢ 6) i: 181 : : : : 
6C 61 76 20 of 6F 69 74 63 ge 75 6 $8 2¢ 1A 00192 P.AAV: .ASCII <26>\, function value size: !UL\ : 
4C $1 20 3A 6 A 69 7 0 6 O1A1 3 
74 70 69 72 63 73 65 64 ey $f $3 ¢ gh i HF 3140 P.AAW: .ASCII <21>\label descriptor type\ : 
20 72 61 6C 61 $3 73 20 79 72 61 6 4 § 25 O1¢8 P.AAX: .ASCII \%binary scalar string descriptor type,\ : 
74 70 69 72 63 73 65 64 3 6 33 § 4 0102 F 
2c 65 70 7 4 20 72 6F OO1E1 3 
72 61 6C 61 63 73 20 6C 61 6D 69 $3 6 $ 3 O1E9 P.AAY: .ASCII \Odecimal scalar string descriptor type.\ ; 
70 69 72 63 73 65 64 20 67 6€ 9 74 3 O1F8 3 
2c H 70 79 7% ¢ 72 6F 74 00207 3 
A 65 7A 69 0 st 07 00210 P.AAZ: .ASCII <7>\, size:\ : 
73 74 69 62 20 4C 55 1 0 8 0 48 P.ABA: .ASCII <9>\ !UL bits\ F 
73 74 69 67 69 64 20 4C 55 1 0 OB 3 P.ABB: .ASCII <11>\ 'UL digits\ é 
73 65 74 79 $¢ 0 4¢ 55 1 0 9A 00 3 P.ABC: .ASCII <10>\ !UL by es\ é 
69 67 69 64 20 4C 55 21 20 68 74 69 77 9 1 8 ij P.ABD: .ASCII <16>\ with !UL digits\ 3 
4C 53 21 20 64 65 6C 61 63 73 20 OB 0024A P.ABE: .ASCII <11>\ scaled !SL\ : 
67 6€ 69 72 74 73 20 67 6E 69 79 i 61 76 1F 00256 P.ABF: .ASCII <31>\varying string descriptor type,\ : 
70 79 74 20 72 6F 74 70 69 72 63 73 65 $s ef $? 3 
79 62 20 4C 55 21 20 3A 65 7A 69 73 30 z¢ }} : ie P.ABG: .ASCII <17>\, size: !UL bytes\ : 
67 6€ 69 72 74 73 20 67 6E 69 79 72 61 76 35 88 P.ABH: .ASCII \%varying string array descriptor type.\ : 
74 70 69 72 63 73 65 64 20 79 61 72 72 61 20 00297 3 
C 65 70 79 74 20 72 6F O002A6 3 
79 62 20 4C 55 21 20 3A 65 7A 69 73 ° ef y 3 . P.ABI: .ASCII <17>\, size: !UL bytes\ ; 
20 74 69 62 20 64 65 6E& 67 69 6C 61 $f B $3 8 CO P.ABJ: .ASCII \S%unaligned bit string descriptor type,\ : 
74 70 69 72 63 73 65 64 20 67 6 9 72 74 O2CF F 
C 65 70 7 4 20 72 6F O02DE 3 
69 62 20 4C 55 21 20 3A 65 7A 69 73 20 $f 1? 3 £6 P.ABK: .ASCII <16>\, size: 'UL bits\ : 
63 73 65 64 20 64 65 6E€ 69 66 65 64 of RR 19 O3t? P.ABL: .ASCII <25>\undefined descriptor type\ : 
65 70 79 74 20 72 6F 74 69 72 003506 3 

-PSECT DBGSCODE,NOWRT, SHR, PIC,0 

03FC 00000 ENTRY ROSS TRAUSALATE DESCR. Save R2,R3,R4,R5,R6,- : 1332 
59 0000v CF 9E 00 MOVAB DBGSTRANSALATE_TYPECODE, R9 : 
25 444 00 9E MOVAB ODBGSPRINT, R8 3 
0000000" EF 9 MOVAB P.ABL, R7 3 

4 4 AC 1 MOVL AX_DESCR, R4 : 1356 
3 2 AG A 1 MOVZBL (RZ), DTYPE : 

5 64 3C 18 MOVZWi (R4), LENGTH : 1322 

2 03 Aa& 9A 0002 MOVZBL 3(R45, R2 : 1368 
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| DBGSYMBOL 1beSep-19 4 239: AX-11 Bliss-32 V4.0-74 Page 42 
| ¥O4=000 12-8 08-1 obec 95:79:38 DEBUG. SRC IDBGSYMBOL .B3 1 «0 
5 D B2 TSTL NGTH : 1387 
| 81 13 B4 118 BNEQ 15 : ne 
04 BS RET : 
7 ps B7 12$ CLRL = = (SP?) : 
FDAB F 00089 PUSHAB P.AAI : 
68 FB B CALLS #2, DBGSPRINT : 
01 ) C CMPL DTYPE, #1 : 
Q 12 o¢ NEQ 16% : 
pd ¢ PUSHL LENGTH : 
FDOBO C7 9F 000C PUSHAB P. AAJ : 
13 11 000CB 13$: BRB 16$ : 
15 53 1 : CD 14$: CMPL DTYPE, #21 : 
Q 12 000D BNEG 15$ : 
DD 000D PUSHL_ LENGTH : 
FDBA (C7? 9F 000D4 PUSHAB P.AAK : 
ef 11 00008 BRB 16$ ; 
DD QODA 15$ PUSHL LENGTH : 
FDC6 ¢7 9F 000D PUSHAB P.AAL : 
015A 31 900E 16$: BRW 43$ : 
04 se 1 QOOOES 17$: CMPB Re as 3: 1402 
0 12 9006 BNEQ 188 : 
E D4 O00E CLRL = = (SP) + 1403 
FDD1 C7? 9F OOOEA PUSHAB P.AAM : 
18 11 OO0E BRB 20$ ; 
OA 52 91 OO0FO 188: CMPBséRR2,, #10 + 1410 
08 12 OOOF BNEQ 19% : 
75 D4 O00F CLRL = =( SP) + 1411 
FDE8 C? 9F O00F7 PUSHAB P.AAN : 
0B 11 000FB BRB 0$ ; 
OE 52 91 900FD 19$ CMPBséR2, #14 : 1417 
09 12 00100 BNEQ 21% ; 
E D4 0102 LRL = (SP) : 1418 
FEOD C? 9F 00104 PUSHAB P.AAO : 
68 02 FB 00108 208 ALLS #2, DBGSPRINT : 
56 0B AG 9A 00108 218 MOVZBL 11(R4), + 1421 
56 DD 0010F PUSHL R6 ; | 
FE32. C7)—soOF «00111 PUSHAB P.AAP : 
68 92 FB 00115 CALLS #2, DBGSPRINT ; 
: D4 00118 CLAL ss = (§P) + 1426 
FEG3 f 9F OO11A PUSHAB P,AAQ ; 
68 2 FB OO11E CALLS a3 DBGSPRINT ; 
32 16 AG 9E 00121 MOVAB 20(R4), BOUNDS PTR + 1427 
5 6246 DE 00125 MOVAL (BOUNDS PTR)CR6J, BOUNDS_PTR > 1428 
D4 00129 CLAL BOUND _NO : 1435 
A i 128 BRB ; 
51 53 BB. 12D 22%: ASHL “i, BOUND_NO, R1 3 
50 53 1 78 00131 ASHL #1, BOUND“NO, RO : 1434 
56 3 p1 001 CMPL BOUND_NO, R6 + 1431 
f 12 001 BNEG ; 
FC A241 DD 0013A PUSHL “4 (BOUNDS _PTRIERT] > 1435 
Fa A 40 BD 1 PUSHL =-8(BOUNDS~PTR)LRO : 14 
FEGE ¢ F 0014 PUSHAB P.AAR + 1433 
c Hh 146 BRB 24$ F 
FC A241 DD 00148 23$: = PUSHL =4(BOUNDS_PTR)[R1 + 1439 
Fa A 49 pp 166 PUSHL  =8(BOUNDS~PTR)CRO + 1438 
FES f 13 PUSHAB P.AAS > 1437 
68 FB 00154 246%: CALLS #3, DBGSPRINT : 


] 
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¥04=000 18-808 -13be 96:79:38 DEBUG. SRC IDBGS YMBOL .B3 31 eal 3 
| D2 53 56 F3 00157 258: AOBLEQ R6, BOUND_NO, 22$ : 1429 
04 00158 RET : 1358 
76 ps 15¢ 268:  CLRL  -=(SP) + 1450 
FE60 F 1 PUSHAB P.AAT : 
68 6 FB 0016 CALLS #2, DBGSPRINT ‘ 
DD 0016 PUSHL DTYP + 1651 
69 0] FB 0016 CALLS #1, DBGSTRANSALATE_TYPECODE : 
5 05 O016A TSTL pNGTH + 1452 
08 12 0016C BNEO 4 : 
E D4 166 CLRL ss = (SP) + 16546 
FE7B «6 C?)soO9F «(001 PUSHAB P.AAU : 
Of 11 00174 BRB 29$ : 
0D 1% 27$ PUSHL LENGTH + 1457 
FEB C7 9F 0017 PUSHAB P. AAV + 1456 
— 11 0017¢ BRB 3 : 
7 04 SHAS 28%: CLAL -(SP) : 1466 
FEB6 C 9F 0018 PUSHAB P.AAW : 
6 11 00184 298: RB : 
08 OA Ab : E1 00186 30$: BBC #3, 10(R4), 318 + 1675 
E D4 0018B CLRL ss = ¢ §P) + 1477 
FECC C7 OF 9180 PUSHAB P.AAX : 
6 11 00191 BRB $ : 
E D4 00193 31$ CLRL = = (SP) + 1479 
FEF2 C7? 9F 00195 PUSHAB P.AAY : 
68 9g FB 00199 32$: CALLS #2, DBGSPRINT : 
53 DD 0019¢ PUSHL + 1480 
69 01 FB 0019E CALLS #1, DBGSTRANSALATE_TYPECODE ; 
5 D5 OO1A1 TSTL ENGTH + 1681 
2c 13 OO1A3 BEQL F 
E D4 001A5 CLRL = =( SP) : 
FFI9. «C7? «OOF OO1A7 PUSHAB P.AAZ ; 
68 9¢ FB OO1AB CALLS #2, DBGSPRINT 3 
01 5 D1 OO1AE CMPL TYPE, #1 : 
08 12 00181 BNEO : 
55 DD 00185 PUSHL LENGTH : 
FF21. C7? 9F 00185 PUSHAB P.ABA : 
13 11 00189 BRB 35$ : 
15 53 D1 001BB 338 CMPL TYPE, #21 : 
08 12 O1BE BNE 4$ ; 
55 DD O001C PUSHL LENGTH : 
FF2B C7? OF O01C2 PUSHAB P.ABB : 
06 1 1¢6 BRB 35$ : 
DD 001C8 34$:  PUSHL LENGTH : 
FF37 C7? OF OOICA PUSHAB P, ABC : 
£8 2 FB Ice 358: CALLS #2, DBGSPRINT : 
55 09 Ab 08 0 F 101 36$: CMPZV #0. #8, 9(R4), LENGTH : 1682 
6 107 BNEQ ; 
15 02 As 91 00109 CMPB (R4), #21 > 1483 
10 13 00100 BEQL : 
09 ad 95 OO1DF 37$: TSTB (R4) > 1485 
0B 13 OO1E2 BEQL : 
7E 09 «Ab gh 164 MOVZBL 9(R4), -(SP) : 
FF42 C7 OF OO1E8 PUSHAB P.AB ; 
68 02 FB OO1EC CALLS #2, DBGSPRINT F 
08 AS 95 OO1EF 388: TSTB =: 8 (RG) + 1486 
4C 18 O01F2 BEQL 448 : 
7E 08 Ad 98 OO1F4 CVTBL 8(R4), =(SP) : 
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P, ABE 

43$ 

=(SP) 

P.ABF 

#2, DBGSPRINT 

oTYP 

#1, DBGSTRANSALATE_TYPECODE 
(Ri), =(SP) 

P.ABG 
43$ 
-(SP) 

P. ABH 

We. DBGSPRINT 
#1, DBGSTRANSALATE_TYPECODE 
(R4), =(SP) 

P.ABI 

43$ 

-(SP) 

P.ABJ 

#2, DBGSPRINT 
pTYP 


#1, DBGSTRANSALATE_TYPECODE 
(R4), =(SP) 


P, ABK 
#2, DBGSPRINT 
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v04-000 eageei18Re 98:73:88 = ELS Oh $5538 esse 285. age 3} 
GLOBAL ROUTINE DBGSTRANSALATE_KIND(RSTPTR): = 
FUNCTION 


Given RST kind field, transalte it into readable format, also 
return the Length of the RST entry. 


SS2SS2 


MEUM =O OBNAUEWN “OVD ONOUS WN —O0@~ 


KIND = Symbol's RST kind field. 


OUTPUTS 
The Length of the RST entry is returned. 


BEGIN 


i INPUT 
i 


P 
RSTPTR: REF RSTSENTRY; ! Pointer to Symbol's RST entry 


LOCAL 
LENGTH; ! The length of the RST entry 


Eek ek ae kee ee ee ek ek kt ak kt Dd a ee 
PUPVPVSUSUSUSUSUSUSUSUSUSUSISISIS ISIS 
PUI ES BS BE BB BE EE EWN 


WR 9S ODO UE WIN SO ODNOA NEW 9 ODNOAU EWN 0 ODNOU SWI OOONOU ES Wh 


ag)” + tite tee atta FROM RSTSK_KIND_MINIMUM TO RSTSK_KIND_MAXIMUM OF 


CRSTS$K PODULE I: 


DBGSPRINT(UPLIT BYTE(ZASCIC ‘module'), 0); 
LENGTH = RSTSK_MODENTSIZ; 


CRST$K_ROUTINE]: 


DBGSPRINT(UPLIT BYTE(ZAS 
—" = RSTSK_ROUTENTSI 


WWWAAN AAR PININIPININPONNIDS 2 A PO OO ew ee 


He *routine’), 0); 


CRST$K_ BLOCK]: 


DBGSPRINT(UPLIT BYTE(ZASCIC block"), 0); 
LENGTH = RSTSK_LEXENTSIZ; 


CRSTSK_ENTRY]: 


DBGSPRINT(UPLIT BYTE(ZA 
LENGTH = RSTSK_EPTENTS! 


eee ‘entry'), 0); 
CRSTSK_LABEL): 


DBGSPRINT(UPLIT BYTE(ZASCIC ‘label"), 0); 
LENGTH = RSTSK_LBLENTSIZ; 


109 G9 09 09 SI NIN NS NSS NS NNO AAA AAAAOAOOUIIIII 


CRSTS$K LINE): 
DBGSPRINT(UPLIT BYTE(ZASCIC ‘Line"), 0); 
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15 
p= 198e $3:17:89 — EoteuG. $e 
LENGTH = RSTSK_LINENTSIZ; 


CRSTSK DATA): 


DBGSPRINT(UPLIT BYTE(ZASCIC ‘data'), 0); 
LENGTH = RSTSK_DATENTSIZ; 


CRSTSK_TYPCOMP): 


DBGSPRINT(UPLIT BYTE(ZASCIC ‘record component’), 0); 
LENGTH = RSTSK_DATENTSIZ; 


You really should not get this kind. 
CRSTSK TYPE): 


DBGSPRINT(UPLIT BYTE (ZASCIC types), 0): 
LENGTH = RSTSK_TYPENTSIZ + .RSTPTRCRSTSL_TYPCOMPCNT); 


' You can get this kind only if /TYPE is specified. Routine 
: GET_VARIANT is called. 


CRST$K_VARIANT): 


DBGSPRINT(UPLIT BYTE(ZASCIC ‘record variants’), 0); 
Sete = RSTSK_VARENTSIZ + -RSTPTRERSTSL_VARSETCNT; 


You really should not get this kind. 
CRSTSK_INVOCNUM): 


DBGSPRINT(UPLIT BYTE(ZASCIC ‘invocnum’), 0); 
LENGTH = RSTSK_INVENTSIZ; 


You really should not get this kind. 
CRST$K_OVERLOAD): 


N 
DBGSPRINT(UPLIT BYTE(ZASCIC ‘overloaded symbol"), 0); 
LENGTH = RSTSK_OLENTSIZ; 


Any other kind is invalid. 
CINRANGE, OUTRANGE): 
BEGIN 


ES ESE RS NRTA AA iE ere inet LOE, ED ES en 


GSYMBOL .B32;1 
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vOe=000 Vexgep-19be 13:17:59 — EoeauG.skcHbaesymeOL639;1 ae 
; nva nd‘), 0); 
151 1645 DBGSPRINT(UPLIT BYTEC(ZASCIC ‘i lid kind’), 0) 
; 151 1046 LENGTH = 0; 
; 1520 164 3 
: 1521 1968 
3; 15 § 164 TES; 
3 15 1650 
3 1526 1651 RETURN .LENGTH; 
; 1525 1926 
: 1526 1655 1 END; 
“PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
65 6C 75 64 6F 6D 96 0311 P.ABM: .ASCII ‘ >\module\ : 
65 6€ 69 74 75 6F 0 16 P.ABN: .ASCII <7>\routine\ : 
6B $3 6F 6C 6 5 00 P.ABO: .ASCII <5>\block\ : 
79 ¢ 74 6€ 6 5 00326 P.ABP: .ASCII <3 \tabel\ : 
6C 65 62 61 6C 05 00 P.ABQ: .ASCII <5>\Label\ : 
65 6€ 69 6C 04 00 P.ABR: .ASCII <4>\Line\ : 
61 74 61 64 04 00 P.ABS: .ASCII <4>\data\ 3 
65 6€ 6F 70 6D 6F 63 20 64 72 6F 63 65 oe ig 83 is P.ABT: .ASCII <16>\record component \ : 
65 70 79 74 04 tee P.ABU: .ASCII <4>\type\ : 
74 6€ 61 69 72 61 76 20 64 72 6F 63 65 72 of EEE ABV: .ASCII <15>\record variants\ 3 
6D 75 6€ 63 6F 76 6E 69 O08 00362 P.ABW: .ASCII <8>\invocnum\ F 
60 79 73 20 64 65 64 61 6F 6C 72 65 He, A pe ite P.ABX: .ASCII <17>\overloaded symbol\ 5 
64 6€ 69 6B 20 64 69 6C 61 76 6E 69 OC 0037D P.ABY: ASCII <12>\invalid kind\ é 
-PSECT DBGSCODE,NOWRT, SHR, PIC,O 
001C 00000 ENTRY ceerrae ere KIND, Save R2,R3,R4 ; 1531 
54 000000006 00 9€ 00002 MOVAB DBGSPRINT, R4 F 
53 00000000° EF 9E€ 00009 MOVAB P.ABY 3 
52 06 AC D 99010 OVL RSTPTR, R2 : 1552 
OD 00 14 Ad 8F 00014 CASEB O(R2), , #13 é 
0039 0032 o0ee 001C 00019 1$: - WORD $-1$,- 3 
D 00SF 005 004C 00021 $-1$,- 3 
0078 0066 001C 0040 00029 4$-1$,- 5 
0095 0089 00031 5$-1$,- ; 
+ tt 3 
$-1$ = a 
11$-1$,- ; 
13$-1$,- 3 
6$-1$,- 3 
e3e1$ - ; 
2$-1$,- ; 
14$-1$,- $ 
133-13." 3 
17$-1$ ; 
7E 04 000 3 23: CLRL -(SP) ; 1645 
3 0D 38 PUSHL R 3 
64 FB 00039 CALLS #2, DBGSPRINT ; 


Saws 


50 


50 


3; Routine Size: 186 bytes, 


64 
28 A2 


08 A2 


Routine Base: 


50 
? 
x J 
: 
7 
98 OA 
oC 
A3 i 
1 
? 
AQ OA 
2 
B 
? 
AF OA 
38 
? 
BS A 
02 
08 
7 
BA A 
8 
BF a3 
1 
E 
DO AS 
02 
08 
7 
DS OA 
02 
06 
7 
of 
0 
0 
«| 
be 
6 
DBGSCODE + 


K 15 
16-Sep- 
14-Sep- 

é i 
4 F 3$: 
a 
His 
4 4A 
4 ree 4$: 
F 4D 
11 628 
" 052 5$: 
i 0037 
D4 00059 6$: 
9F 00058 
FB Fs 7$: 
DO 00061 
04 00064 
D4 00065 8$: 
9F 00067 
11 Q006A 
04 Benge 9$: 
9F O006E 
FB 00071 10$ 
00 00074 
04 00077 
D4 00078 11% 
9F OOO7A 
11 00070 
D4 OOO7F 128: 
oF tH 
11 00084 
D4 00086 138: 
9F 00088 
FB $414 
C1 000 3 
04 0009 
ps 0094 14$: 
F 00096 
FB 00099 
C1 0009C 
04 
D4 


008 


087¢ 


3 17$: 


OOA1 
Bs sy 15$: 
Fe boa? 16%: 


4 239: AX-11 Bliss- 
2 93:73:88 © Hotes. Sacdbs 
CURL LENGTH 

SUSHAB PLABM 

CALLS ae DBGSPRINT 
MOVL #i2, LENGTH 

CLRL = = (SP) 
an 

CLRL ss = ( SP) 

puss faa 

Shs 5550 

CALLS #2, DBGSPRINT 
mOVL #11, SENGTH 

CLRL = (SP) 
iat 

Sith 5k 

CALLS a2, DBGSPRINT 
HOVL #8, LENGTH 

CLRL = (SP) 

puss Fu 

CLRL = = (SP) 

puss Fuge 

Stine pty 

CALLS #2, DBGSPRINT 
ADDL wif, 40(R2), LENGTH 
PUSHAB P ABV 

CALLS #2, DBGSPRINT 
ADDL #6. B(R2),. LENGTH 
PUSHAB P< ABW 

CALLS ue. DBGSPRINT 
HOVL #7. LENGTH 

Shan 5th 

CALLS #2, DBGSPRINT 
HOVE #6. LENGTH 
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GSYMBOL 


MEW —OO° 


POPU IVSUSVSVSVSVSVSUSISISISIS 


DPA A MTN ES EE EE EE 
Wwr—O0O® 


vw 


Lah abhh 4h Ab Abeah Ab AR AL AL AD AL Ab ah hsb sh aha) 
SSSe NOVEWN —“OOONOUSE 


ao 
wr 


sgeeey 


CONG VEWN COON 


a a a ee ee lt ee ee ee el ee ee ed ed ed 
SSN NNO 


PAPPAAAAAAAAAMAM IA 


RaN=S 


15 
1$-Se0-1986 02:39:58 YaNett BLiss-32 v4.09742 


18 ¢ } GLOBAL ROUTINE DBGSTRANSALATE_TYPECODE(TYPECODE): NOVALUE = 

14 $ 1 § FUNCTION 

1° : } Transalate Data Type Code into user readable form. 

16 § 1 § INPUTS 

1660 1! TYPECODE = Data Type Code. 

1661 1! 

166¢ 1 ! OUTPUTS 

1665 1! None. 

1664 1! 

1665 1 

1068 BEGIN 

1668 CASE .- TYPECODE FROM DSCS$K_DTYPE_LOWEST TO DSCSK_DTYPE_HIGHEST OF 
187 

1671 COSCSK_DTYPE_v): 

1676 DBGSPRINT(UPLIT BYTE(ZASCIC * bit field"), 0); 

1674 CDOSC$K_DTYPE_BU): 

1673 DBGSPRINT(UPLIT BYTE(ZASCIC * byte logical’), 0); 
1879 COSCSK_DTYPE_wu): 

1678 DBGSPRINT(UPLIT BYTE(ZASCIC * word logical’), 0); 
1680 COSCSK_DTYPE_LU): : 

198) DBGSPRINT(UPLIT BYTE(ZASCIC ° longword logical"), 0); 
1688 COSC$K_DTYPE_Qu): 

et: DBGSPRINT(UPLIT BYTE(ZASCIC * quadword logical’), 0); 
1686 COSCSK_DTYPE 8): 

1687 DBGSPRINT(UPLIT BYTE(ZASCIC * byte integer’), 0); 
1689 COSCSK_DTYPE _w): 

1629 DBGSPRINT(UPLIT BYTE(ZASCIC ' word integer’), 0); 
1698 CDOSCSK_DTYPE_L): 

109? DBGSPRINT(UPLIT BYTE(ZASCIC * Longword integer’), 0); 
1695 COSCSK_DTYPE_Q): 

1698 DBGSPRINT(UPLIT BYTE(ZASCIC * quadword integer’), 0); 
1698 COSCSK_DTYPE_F): 

1699 DBGSPRINT(UPLIT BYTE(ZASCIC * F_floating’), 0); 

1704 COSCSK_DTYPE_D): 

44 DBGSPRINT(UPLIT BYTE(ZASCIC * D_floating’), 0); 

1704 COSCSK_DTYPE FC): 

1705 DBGSPRINT(UPLIT BYTE(ZASCIC * F_floating complex’), 0); 
17 COSCSK_DTYPE DC): 

1? $ DBGSPRINT(UPLIT BYTE(ZASCIC * D complex’), 0); 

1710 COSC$K_DTYPE_T): 


Page 49 
. (8) 


Rr es ee ee 15 


uw 


ooo 
wn—oo 


LESE 


so 
oo 


3 


PDP P DAA PAPI 


SSSSSSSSS 


SAPAAOAAD 


MAMARIRVUINVUNNN SS So rouNwoe 
USLSSSVSERRANLSSaNenraun os 


SSLEAE 


PHO PCAOPASOAOPSOASAAAOOAAAOAS 
<3 


am a tt a a a a kk ak a at a a ca = a = 2a = = 8 = = 2 


FF 
=o 


4 
1ecSep-i9ee 18:17:58 — Edeeu.SacSoacsrmecr-033;1 = BD 


DBGSPRINT(UPLIT BYTE(ZASCIC ° character-coded text’), 0); 


COSCSK thts NU]: 
DBGSPRINT(UPLIT BYTE(ZASCIC * numeric string, unsigned’), 0); 


COSCSK_DTYPE_NLI: 
DBGSPRINT(UPLIT BYTE(SASCIC ° numeric string, left separate sign’), 0); 


CDOSCSK_DTYPE_NLO): 
DBGSPRINT(UPLIT BYTE(ZASCIC * numeric string, left overpunched sign’), 0); 


COSCSK_DTYPE _NR): 
DBGSPRINT(UPLIT BYTE(ZASCIC * numeric string, right separate sign’), 0); 


COSCSK_DTYPE_NRO): 
DBGSPRINT(UPLIT BYTECZASCIC * numeric string, right overpunched sign’), 0); 


COSCSK_DTYPE_N2): 
DBGSPRINT(UPLIT BYTE(ZASCIC * numeric string, zoned sign’), 0); 


COSCSK_DTYPE _P): 
DBGSPRINT(UPLIT BYTE(ZASCIC * packed decimal string’), 0); 


COSCSK_DTYPE 71): 
DBGSPRINT(UPLIT BYTE(ZASCIC ' sequence of instructions’), 0); 


COSCS$K_DTYPE_ZEM): 
DBGSPRINT(UPLIT BYTE(ZASCIC * procedure entry mask"), 0); 


CDOSC$K_DTYPE_DSC): 
DBGSPRINT(UPLIT BYTE(ZASCIC * descriptor’), 0); 


COSCSK_DTYPE Ou): 
DBGSPRINT(UPLIT BYTE(ZASCIC * octaword logical’), 0); 


COSCSK_DTYPE_0): 
DBGSPRINT(UPLIT BYTE(ZASCIC ° octaword integer’), 0); 


COSCSK_DTYPE_G): 
DBGSPRINT(UPLIT BYTE(ZASCIC * G_floating’), 0); 


COSCSK_DTYPE_H): 
DBGSPRINT(UPLIT BYTEC(ZASCIC * H_floating’), 0); 


COSCSK_DTYPE_GC): 
DBGSPRINT(UPLIT BYTE(ZASCIC * G_floating complex’), 0); 


COSCS$K_DTYPE_HC): 
DBGSPRINT(UPLIT BYTE(ZASCIC * H_floating complex’), 0); 


COSCSK_DTYPE_CIT): 
DBGSPRINT(UPLIT BYTE(ZASCIC ° COBOL intermediate temporary’). 0); 


COSCSK bys. BPV): 
DBGSPRINT(UPLIT BYTE(ZASCIC * bound procedure value’), 0); 


(DSC$K_DTYPE_BLV): 
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aa a a a a a a a td a tt ee a = a ws 9 a — —) a — 9 —) 2s —) — 9 ss 4) 3 1 
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FUN $9 OOBNO NEA $C ODNOUN Ew O0O@ 
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Be 93:77:53 


AX-11 Pt ieee a ge 
DEBUG. SRC JDBGSYMBOL .832;1 


DBGSPRINT(UPLIT BYTE(ZASCIC * bound Label value"), 0); 


COSCSK pryre vu): 
dB 


COSCSK_DTYPE_vT) 
bets 


CINRANGE, OUTRANGE): 
BEGIN 


PRINT(UPLIT BYTE(ZASCIC * bit unaligned’), 0); 


PRINT(UPLIT BYTE(RASCIC * varying text’), 0); 


} This is the only one which is not VAX Standard Data Type. 


IF ,,YPECODE EQL DST$K_BOOL 


DBGSPRINT(UPLIT BYTE(ZASCIC * boolean’), 0) 
DBGSPRINT(UPLIT BYTEC(ZASCIC *° undefined type’), 0); 


ELS 


END; 
TES; 
RETURN 0; 
END; 


69 66 20 74 69 6 0 ABZ: 
6C 20 65 74 79 $ 0 «ACA: 
6c ! 64 72 6F 8 -ACB: 
6F 67 6€ 6F 6C ACC: 


6 
69 20 65 74 79 es ACE: 
69 ! 64 72 6F ACF: 
6F 67 6& OF 6C ACG: 
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o 
al 
~ 
 N 
o 
&- 
~ 
w 
~ 
=~ 
PIPPI NIN INNING NANNING NNT 


OOrONMSC FOOCOCCOCOMOMOooOo 0 -oOOo°0o° 
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66 
6€ 


DBGSPLIT.NOWRT, SHR, PIC,0 


<10>\ 
ap 


\@ numeric string, left separate sign\ 


bit field\ 

byte logical\ 
word logical\ 
longword logical\ 


quadword logical\ 
byte integer\ 

wore inteser\ 
longword integer\ 
Quadword integer\ 
F_floating\ 
D_floating\ 
F_floating complex\ 


D_complex\ 
character-coded text\ 


numeric string, unsigned\ 


roo 


| 


B 16 
DBGSYMBOL 16-Sep-1984 02:39: 
_vo4=000 12-3001 38e 98:73: 
6€ 69 72 74 73 20 63 69 72 65 6D 75 0 GAO PLACP: .A 
6E $2 70 72 es $0 6f 2 i i s 2 ‘ é fe ’ is 
6& 69 72 7% 7 9 65 6D 75 i 4 004C? P.AcQ: . 
DIELOLSSEELLLis oan 
6 69 72 76 73 20 63 69 65 6D 7? 26 7 OOGEC P.ACR: LA 
DROP EO UME DED Ow bale ee 
6 69 72 7% 73 2 3 69 7 g 6D $3 1 0514 P.ACS: ASCII 
6— 67 69 0 64 65 6E 6F 7A 4 é 
61 6D 69 63 65 64 20 64 63 68 $3 $} , 6 16 : Q P.ACT: ASCII 
69 20 66 6F i 65 63 ; e ? 4 g3 rs : "5 0547 P.ACU: ASCII 
7% 6€ 65 20 65 7 sf 64 65 6 : 20 20 is of) P.ACV: .ASCII 
72 6F 74 70 69 "3 63 73 65 64 77 P.ACW: AA 
69 67 6F 6C 20 64 72 6F 77 61 7% 63 oF 20 " Ht PACK, ASEH 
65 74 6 69 20 64 72 6F 77 61 7% 63 gf 20 i 0595 P.ACY: .ASCII 
eG 68 7 gt or or 66 Se AF 80 So OOSAT e.acz: asc 
6F 63 20 67 6E 69 74 61 6F 66 3 47 o 13 0098 P.ADB: .ASCII 
6F 63 20 67 6€ 69 74 61 SF 6C 6 3 48 20 i3 i P.ADC: .ASCII 
65 6D 72 65 76 6€ 69 20 4C 4F 42 4F es 20 1D 05E P.ADD: .ASCII 
79 72 61 72 6F 70 6D 65 76 20 65 74 61 69 64 005F6 
75 66 65 63 6F 72 70 2 64 6e 3 6 6 20 i 90605 P.ADE: .ASCII 
7% 20 6C 65 62 61 6C 20 64 6€ 75 6 6 20 i 0061¢ P.ADF: .ASCII 
64 65 6E 67 69 6C 61 6E 75 20 74 69 62 20 OF oes P.ADG: .ASCII 
Re Rea e e B eter a 
70 79 74 20 66 65 6€ 69 66 65 64 6€ $¢ $8 OF g0635 P-ADJ: .ASCII 
PSECT 
0004 00000 ENTRY 
52 00000000" EF 9€ 9002 VAB 
24 01 04 AC CF 0000 CASEL 
0079 0071 0069 0061 OO0E 1$: < WORD 
0099 0091 089 0 1 0016 
0089 0B1 OA9 Al 0 If 
0009 001 0c9 0c1 
9 FI 069 0€1 E 
119 111 109 101 
139 131 129 121 
157 150 149 141 r 
4A OA 165 15¢ Que 


38 rel Bliss-32 v4.0-74 


DEBUG. SRC JDBGSYMBOL .B32; 1 


\& numeric string, left overpunched sign\ 
\$S numeric string, right separate sign\ 


\' numeric string, right overpunched sign\ 


<27>\ numeric string, zoned sign\ 
<22>\ packed decimal string\ 
<25>\ sequence of instructions\ 
<21>\ procedure entry mask\ 


<11>\ descriptor\ 
<17>\ octaword logical\ 


<17>\ octaword integer\ 
<11>\ G_floating\ 

<11>\ H floating\ 

<19>\ G_floating complex\ 


<19>\ H floating complex\ 


<29>\ COBOL intermediate temporary\ 


<22>\ bound procedure value\ 
<18>\ bound Label value\ 
<14>\ bit unaligned\ 

<13>\ varying text\ 


<8>\ boolean 
<15>\ undefined type\ 


DBGSCODE,NOWRT, SHR, PIC,0 
DBGSTRANSALATE, TYPECODE., Save R2 
TyPECODE, #1, #36 

4$-1$,- 
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DEBUG. SRC JDBGSYMBOL .832;1 


Oo oe N w @ - ~~ ~ Oo w~ >) al N a oO - a ~ oO 
o o So So So - - 5 ~N ™N ~N N alll ” al wr ws wv al 
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FDAS 
FDB7 
FDC9 
FDDS 
FDE1 
FDFS 
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DBGSYMBOL 
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; Routine Size: 391 bytes, Routine Base: DBGSCODE + 


F2 
000000006 00 


OF NOP NOP NH PN FP NIN NII NINO NAO 


MIPIM MPOM OPOM WPM }& form form Corum Crom oor 


onwoo-olo- 00 - 09 -— 00 - 00 - 09 — 00 Oo 
PS ee ee Pe el Pe iP a a ee a ee ee 
COOCCCOCOCOCOOOOOOOOOOOOOOO 
jeleleleleleleleleleolelelelelelelelelelelel a lea) 


Vw OS PE EE 
On Ow FW MH OVO On Ou fw 
PR FE FSF OSPF SCS SOO OOS OM 


“ 
© 
bad 
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PUSHAB 
BR 


.ADH 
#2, DBGSPRINT 
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iste. 16-Sep-1984 02:3 AX-11 Bliss-32 V4.0-74 Pace %6 
04-000 1 p= 3e0n oee 8g: TFs PoNaG. eke pBagYMBOL 3551 age 9) 
GLOBAL ROUTINE DBGSTRANSALATE_REG(REG_NUM): NOVALUE = 


i FUNCTION 
This routine transalate register number into register name. 


i 
1 
! 
' INPUTS 

REG_NUM = register number (from 0 to 15). 
i 


i OUTPUTS 
: Non 


BEGIN 
Y ate saat GEQ 0) AND (.REG_NUM LEQ 11) 
pectinases BYTE(ZASCIC "SR!UL'), .REG_NUM) 


BEGIN 
CASE .REG_NUM FROM 12 TO 15 OF 


SET 
193 
13]: G$ ( 
133! DBGSPRINT(UPLIT a 
TES; 


MPMNPNID 2 2 2 OP KM MH QOOOOCODOOCOOOOOOO 
FW OO OONOA UE WN O OD NAUE WIN ( OOONOAUW 


00 09 09 09 00 0D 09 09 0D 09 09 09 09 09 0 09 CO CO C9 OD CD CD CO ODO8 INI II 
—NNNVWNNANINWIWIIAIIRINWIIIN 2 Oe es ee we es ee eee 


St a te “a os a ts “a —) —) ob — 1s -49 — 9 — 9 9 —) > os — 9 ss YY YH 
oa 
i) bt a ss as ts as ds — >) —* 4 2 2 4 9 5 4 3 


RETURN 0; 
END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 

4C 55 00665 P.ADK: .ASCII <S>\2R!UL\ 
: ASCII] <3>\ZAP\ 
. : CI] <3>\%FP\ 
00673 P.ADN: .ASCII <3>\2SP\ 
00677 P.ADO: .ASCII <3>\2PC\ 


uve 
Wooo 
Wns &ui 
OWOo— 
Pororornoery 
WAI 
Bete Se Se Be 


-PSECT DBGSCODE.NOWRT, SHR, PIC,0 


0004 00000 -ENTRY DBGSTRANSALATE_REG, Save R2 ; 1795 
52 00000000" EF 9€ 0000 MOVAB P.ADK, R2 3 
50 06 ac OD 0 MOVL REC Mun. RO ; 1809 
98 19 00000 BLSS 1 5 
08 D1 Q000F CMPL RO, #11 ; 
6g 14 00012 BGTR 1$ : 
DD 00014 PUSHL R ; 1811 
2 dd 00016 PUSHL R 3 
8 11 id BRB 7 ; 
03 OC CF QOOIA 1$: CASEL RO, #12, #3 ; 1814 
001D 0016 000F 0008 OO1E 2$: » WORD i3-33°- : 


RC RETR ESE RG Eee IS <r ibaa RII AEN era 
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y 11 Ot igen V4.0-74 
DEBUG. SRC JDBGSYMBOL .B32; 1 


AX- 


16 
Sep 


DBGSYMBOL 


v04-000 


71986 93:47:58 


Sep-19 


1816 
1817 
1818 
1819 


1824 


wood ODoOouw soc waoor 


w 


wT 


OOCooOooooooooo 
COOCOCOOCOCoO 


Tere sun su Oy 
QOe-— A0— AO — AO uO 


WIP WI BWIA IEC 


teh cor cor. 


o < w N 
oO oOo Oo - 


oO 


000000006 00 


72 bytes, Routine Base: DBGSCODE + OABD 


3; Routine Size: 


H 16 
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v04-000 14-Sep-19 & 93:79:83 toEBUG. SRC DBGSYMBOL .832;1 9°10) 


LOBAL ROUTINE DBGSDUMP_HEX (ADDRESS ,LENGTH,RELADDR,HEADER_STRING): NOVALUE = 


FUNCTION 
This routine is taken from TOOLS:DBGDMPDST.B832, and is modified some. 


This routine dumps the specified number of bytes, starting at the 
specified address, in hex. The output is formatted as four longwords 

to a Line followed by the start address of the four longword unit. A 
header, if supplied, is output at the begining of the first Line of text. 


aN 
oOo 


The output text is right justified to columns. 
INPUTS 
ADDRESS - The start address of the block to be dumped. 
LENGTH - The size of the block to be dumped in bytes. 
RELADDR - The start address relative to the DST. This is the value 


printed at the end of an output Line of text, as 
mentioned above. 


HEADER_STRING = Start address of the header name in counted ASCII. This 
+ gem Ay printed at the begining of the first Line 
of text. 


OUTPUTS 
None 


eee te ete rr er erry.) 


BEGIN 


WARININMININININININD 2 3 A 2 PO OO SS OOOO 
WN "OC OCONAUES WAN" OOONAVUEWN —OVDONOUSE 
0.09 09 CD Od OD CD CD Od OS CD C9 CD OO CD CD OD 00 CD OD OD OD OD CD OD OS Cd GD CD C9. 09 CD CD C9 CO. CD CD CD COON COCO 
PUPP Ss BS BS BB EE NNN inopronr 
FWD —OVOONAO UE WN" O OONA UF WPD O OONOUE WN" OOOnNOu 


me ee ee ee ee ee ee ee a ed ed od od ed 2 


Be Be Be Oe Oe Be Se Se Oe Be Be Se Se Be Be Se Se Ge Se Se Ge FH SH Ge SH TS Te Ge Ge Se Se Se Se Se os Se FF Se Oe Ge SH Ss SH Se SESS SH Oe Oe Se Oe SH Ss SESH es oe 
ROPOPOPOPOPOPIMONYNPONDPONONYONYNINYNIPYIPINPINPIPINIPIDIDID 9 2 9 9 9 9 OS HOO 


ee ee eee ee a ce a ee ee ee ee ee ee ed ee cee ee a a ce a ce cee ce ce ce ce cee a ee ce ce ae ce a ed ee ee ca cee ee ee ed a ed ee ed 
SSNS SSS SSNS NNN SS NSS SSS SIS SNS SSS SSS SSS 


3 pP 

$2 HEADER_STRING : REF VECTORL,BYTEJ; ! wocation of ASCIC header name. 

35 LOCAL 

36 6 BYTE_LENGTH, ! Remaining size of input block in pytes. 
37 6 OUTBCOCK : VECTORC79,BYTE), ' Qutput buffer for storing the ASCI 
38 6 ! hex characters. 

39 6 OUTBLOCK_INDEX, ! Variable to index OUTBLOCK. 

40 6 REL_ADDRESS ' Address relative to start of DST. 

41 65 START ADDRESS, ' Start address of block to be dumped. 
42 66 VAL_SIZE, ' Size in bytes of the value to be 

43 867 ' converted to ASCII hex. 

44 868 STRNG_DESC : BLOCK(8,BYTE); ! String descriptor passed as argument 
45 869 : to external routines. 

46 870 

47 871 

48 a76 i 

4 a7 The locally used variables are equated to the formal parameters. 

51 875 START_ADDRESS = .ADDRESS; 

2¢ B76 BYTE_CENGTH = .LENGTH; 

5 87 REL_ADDRESS = .RELADDK:; 

54 378 

55 79 apipiousy 

2$ aa The index into OUTBLOCK is initialized for the fill-in. 


1é 
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H 1728 1886 OUTBLOCK_INDEX = 60; 

; 1759 18 VAL SIZE = 4; 

; 1760 1884 

; 1761 1885 

; 1766 1336 } The fixed parts of the string descriptor are set up. 

3 1764 1888 STRNG_DESC (DSCSB_DTYPE] = DSCSK_DTYPE_T; 

3; 1765 1889 STRNG_DESC [DSC$B_CLASSJ = DSCSK_CLASS_S; 

; 1766 1890 STRNG_DESC LDOSCSW_LENGTH] = 8; 

3 1767 1891 

; 1768 1898 

3: 1769 189 ! The output buffer is cleared & the header string shifted into 

; 1770 1894 ! the first part of the buffer. 

3; 1771 1895 : 

: Vite 1896 CHSFILL(* *,79,Q0UTBLOCK(0)); 

3 ote 3.44 CHSMOVE (.HEADER_STRINGL J, HEADER_STRINGC1),OUTBLOCKL1)); 

3; 1775 1899 : 
3; 1776 1900 ! The input buffer is looped fhrough converting one longword (or trailing 
3 ire 1) bytes) at a time to hex, till byte count is exhausted. 

: 1779 1903 WHILE .BYTE_LENGTH GTR 0 DO 

: 1780 1904 BEGIN 

3; 1781 1905 

: 17ee 1906 . 

; 178 1907 3 : The minimum number of digits to dump is adjusted if there is less 
3: 1786 1908 3 ! than a longword remaining. the conversion to hex is made & the buffer 
; 1785 1909 3 ! pointers updated. 

3: 1786 1910 3 : 

3: 1787 1911 3 IF .BYTE_LENGTH LSS 4 THEN VAL_SIZE = .BYTE_LENGTH; 

3; 1788 1316 ; STRNG_DESC CDSCS$A_POINTER) = OOTBLOCKC .OUTBCOCK_INDEX]; 

3: 1789 191 OTSSCVT_L_TZ(.START_ADDRESS,STRNG_DESC,(2*.VAL_SIZE),.VAL_SIZE); 

; 1790 1914 3 BYTE_LENGTH = . LENGTH = 4; 

3; 1791 1915 START_ADDRESS = .START_ADDRESS + 4; 

; Ie 1916 OUTBLOCK_INDEX = .OUTBCOCK_INDEX = 10; 

3; 179 1917 

3 1794 1918 3 

: 1795 1919 3 ! If the buffer is full or the byte count is exhausted, a text line 
3; 1796 1920 ; ! is output. 

3; 1797 1921 : 

3; 1798 1922 4 IF (,QUTBLOCK_INDEX LSS 30) OR (.BYTE_LENGTH LEQ 0) 

3 1799 1923 3 THEN 

; 1800 1924 4 BEGIN 

; 1801 135? 4 

3; 1802 1926 4 

3; 1803 1927 4 ' The ete tag descriptor is set up to receive the converted address. 
3; 1804 1928 4 ! The rei address is converted, stored, updated for the next pass & 
3 Hh s't4 1963 ? ; the colon separating the address from text is entered. 

: 1807 1931 4 IF .REL_ADDRESS GEQ %x*10000" 

: 1808 1336 4 THEN 

3; 1809 19 4 STRNG_DESC CDSC$W_LENGTH] = 8 

: 1810 1934 4 

3; 1811 1935 4 ELSE 

; 4 a 1338 ? STRNG_DESC CDSCS$W_LENGTH] = 4; 

: Bie 1938 4 STRNG_DESC CDSCSA_POINTER] = OUTBLOCK(71); 
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09 G9 G9 09 CD CD CD CD CD CD CD C9 09 CD OD CD CD C9. CD CD CD OD 0D CD CD 
WN O DONOUSWN—ODOONOU 3 


ee ed aed od oe od 2s 3 wd 3S 3 ww 2 2 4 
pe ny ere a tert ph tle eh a aera e” ar ae 
tt ss SS = ss = ss SS SS SS os 2 2 > ss — > 
WODODODOVOOOVODOOVOVOOVODOVDOOOOVOVOOOOOOWODO 
foyer oar oatealealalvalealwalealealtaltaP oP oP oP oP oe oP oP oP oP ie 
NOUS WRN 0 OONOAOUESWN —"OOONOU Sw" OO 
=—NPNINININININIWIWNE BFS HSL LES LLLP LLL EEE 


See Se ee Se Ge Se Geis Ge Ge Ge Se ee Ge Se Se Se Ge Ge Ge St Ge SOS Ge Ge ee Ge 


FESR 
WN —OV0Onou 
AAAS 


J 16 
16-Sep-1984 02:39: AX-11 Bliss-32 V4.0-74 Pa 0 
aoe 06:79:38 {oeBUG. SRC DBGSYMBOL .B32;1 . ve 8 
OTSSCVT_L_TZ(REL_ADDRESS ,STRNG, DESC,.STRNG_DESCCDSC$W_LENGTHJ,4); 
REL ADDRESS = »REL ADDRESS + 18; 
OUTBLOCKE70) = ':'3 
} The filled buffer is output as a Line of text. 
STRNG_DESC [DSC$W_LENGTH] = 78; 
STRNG_DESC_CDSCSA-POINTER] = OUTBLOCK(1); 
OUTBLOCKLO] = 78; 
DBGSPRINT(UPLIT BYTE(ZASCIC *!AC"), OUTBLOCK); 
DBGSNEWLINE (); 
OUTBLOCK is cleared for more input and loop parameters reset. 
STRNG_DESC CDSC$W_LENGTH) = 8; 


CHSFICL(" ',79,0UTBLOCK(O)); 
QUTBLOCK. INDEX = 60; 


END; 
! After all bytes have been successfully dumped, control is returned to 


the calling routine. 
RETURN 0; 
END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC.0 
43 41 21 03 0067B P.ADP: .ASCII <3>\!AC\ : 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


07FC 00000 -ENTRY DBGSDUMP_HEX, Save R2.R3,R4,R5,R6,R7,R8,R9,-; 1825 
SA 000000096 00 9€ 00002 MOVAB OTSSCVT_L_TZ, R10 : 
3E AS AE 4 9009 MOVAB -88(SP)> SP : 
5 04 AC 00 0000D MOVL ADDRESS, START_ADDRESS : 1875 
57 08 AC 00 00011 MOVL LENGTH, BYTE_LENGTH : 1876 
0C AC DD 00015 PUSHL R : 1877 
56 3¢ D0 00018 MOVL #60, OUTBLOCK_INDEX : 1889 
58 4 dO 00018 MOVL #4 VAL size : 188 
04 AE 010E0008 8F B0 OO1E MOVL  #17694728, STRNG DESC : 1890 
SE ie 00 C 99 6 MOVES #0, (SP), #32, #79, OUTBLOCK > 1896 
50 10 ac po 99 F MOVL HEADER_STRING, RO > 1897 
0 ke 1 38 poss MOVER’ RI {(RO), OUTBLOCK#1 : 
7 $8 $0 C 1$: TSTL ByfE_LENGTH : 1903 
01 14 0003E BGTR $ ; 


DBGSYMBOL 
v04-000 
04 00040 
04 7 O1 41 
; 18 44 
58 4 46 
08 AE oc Ae*6 E 49 
5 be O04F 
7E 58 01 78 00051 
Oc AE 9F 00055 
59 0D 00058 
6A 04 F FS 
iH ae 
3 OA 2 bodes 
iE 56 D1 00066 
04 19 00069 
57 05 Bpoee 
CD 14 00060 
00010000 = &F 6E 01 O006F 
oe 19 00076 
04 «AE 08 B80 00078 
04 11 0007C 
04 AE 04 B0 4 
08 AE 53 AE 9E 0008 
04 0D 00087 
7E 08 AE 3C 00089 
OC AE 9F 0008D 
OC AE 9F 00090 
6A 04 FB 00093 
6E 10 CO 00096 
52. AE 3A 90 00099 
04 «AE 4—E 8F 98 0009D 
08 AE OD AE YE OOOA 
OC AE 4—E 8F 90 QOOA 
C AE 9F QOOAC 
00000000" EF 9F QOOAF 
000000006 00 02 FB 00085 
000000006 00 00 FB 0008 
04 AE 08 B60 000C 
004F &8F 20 6E 00 2C 000C 
0c AE 4S 
56 3¢ 60 $008 
FF66 31 000D 
04 00006 
3 Routine Size: 215 bytes, Routine Base: DOBGSCODE + 0B05 


3 1844 1968 1 


_—— 
Fon 


= 
an 


ow 
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| 
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| 
| 
| 
| 
| 


AM 


38 Ax-11 Oi igen V4.0-74 
: SRC JDOBGSYMBOL .B32;1 


DEBUG. 


YTELLENGTH, #4 
BYTE_LENGTH, VAL 


SIZE 
OUTBEOCK OUFBLOCR_INDEX], STRNG_DESC+4 


4 “VAL_SIZE, -(SP) 


S 
#16, OUTBCOCK_INDEX 
OUTBLOCK_INDER, #30 


BYTE LENGTH 
REL_ADDRESS, #65536 
#8, STRNG_DESC 


#4, STRNG_DESC 
oufBLocK+?1, STRNG_DESC+4 


STRNG_DESC, -(SP) 
NG_DES 


P. ADP 
#2, DBGSPRINT 
40, DEGSNEWL INE 


#8, STRNG_DESC 
#0; (SP),~#32, #79, OUTBLOCK 


#60, OUTBLOCK_INDEX 


Be Se Se Oe Se Se Be Se Be Se Se Se Be Se Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Se Se Be Be Se 


SES SSS 
WYN wo 


LF 


(02 00 09 CD CD CD CD OD CD 
PPA AAATIVIIU 
OWONAUS WN OOONG 
WOOODOOOOOOOOOO 
FW" O OONOUS WOO 


WOOO NNN 


SESSTERES 
$eseess 


o 
S33 


ooovownd 
oo 


00 G9 Gd CD CD 0D 0D CD CD CD 
SNS SNS 
oo 
S338 


WN —OOONOUSWN O00 


DEDEDE DIDI III DIP at st tt st sk i kd dd td ot 


SPSSSSSELESE 


3833 
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33 
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ROUTINE BLD_SCOPE_SEARCH_LIST(NCANDS, SCOPE): NOVALUE = 


' FUNCTION 
‘ This routine builds a List of scopes for the candidate symbols 

to be searched. If this List has not been built, this routine 
will create a memory block for this list. If this list is too 
small, this routine will expand the List 1. getting more nosees 
blocks. Then the search scope is entered to the List. Each time 
this routine is called, the scope count is up by 1. 


NCANDS = Keep track the number of scopes on the scope search List. 
SCOPE = The desired search scope for the candidate symbol. 


OUTPUTS 
N 


' 

i 

i 

i 

: 

4 

INPUTS 
i 

: 

; 

: one. 
: 


See 


o SSSVSSLAaNLSSS 
WWII ERROR NORPRO IIR RORORO ROR RORORORO nono no nononononononononony) 3 4 4 


BEGIN 


P 
NCANDS: REF VECTOR(1); ! Keep track of the number of scopes 


LOCAL 

OLDLST: REF VECTORC,LONG], Pointer to scope search List about 
to be copied to a larger 
memory block 


Scope count 


SCOPE_CNT; 


: Update the scope count. 


Sooooo 
Sears 


MEW —OOSWOul wt -O0@n 


SCOPE_CNT = .NCANDS(O); 
SCOPE_CNT = .SCOPE_CNT + 1; 
: If we do not yet have a scope search List memory block, get one and 
! initialize its first element to give the List size that will fit in 
: the block. 
IF .DBGS_SCOPELST EQL 0 
THEN 
BEGIN 
DBG$_SCOPELST = SOSHseT AENORT TTT: 
DBG$_SCOPELSTCO) = 10; 
END; 
! Note that we have to expand the scope search List memory block if it 
} is too small. 
If .SCOPE_CNT GTR .DBG$_SCOPELST(O) 
THEN 
BEGIN 
paenst s sbass Score st: 
DBGS_SCOPELST = 0B get MEMORY( .OLDLST(O) + 11); 
CHSMOVE (4*(.OLDLSTCOJ+13, .OLDLST, .DBGS$_SCOPELST); 


m 16 
v0s-000 ie-Sep-198e 18:17:58 — EoeauG.SmcSoaGSyMBOL 1659; 1 net 


; Routine Size: 94 bytes, Routine Base: DBGSCODE + OBDC 


: 1903 0 DBG$_SCOPELSTLO 1: dB Gs _SCOPELSTLO] + 10; 
3 1904 9 5 DBGSREL_MEMORY(.OLDLST); — 
; 1202 3 Pubs 
; 1309 § 0 
4 1308 8 1 Now enter the scope to this List, and set the count. 
: 1910 0 : dacs mast Se :SCOPE CNT] = .SCOPE; 
: 1911 034 »SCOPE_CAT; 
: 191¢ 035 RETU 
; 191 0 $ 
3 1914 0 1 END; 
O3FC 00000 BLD_SCOPE SEARCH LIST: 
.@OR Save R2,R3,R4,R5,R6,R7,RB.RO : 1969 
59 000000006 00 9€ 00002 vAB DBGSGET MEMORY, R9 : 
58 00000000' EF 9E 00009 MOVAB DB8GS$_SCOPELST, R8 : 
86 04 BC D0 00010 VL @NCARDS, €_CNT : 2001 
6 D6 00014 INCL SCOPE_CNT : 2002 
68 05 00016 TSTL DBG$_SCOPELST : 2009 
0c 12 93h BNEQ 1$ r 
0B DD OOO1A PUSHL ait : 2012 
6° 01 FB 0001C CALLS , DBGSGET_MEMORY : 
¢") 50 DO 0001F MOVL RO. DBGS 3cOP PELST : 
00 + 0A DO 00022 MOVL m6 adBG$_SCOPELS > 2013 
00 ~ 56 D1 00026 1$: CMPL  SCOPE_CNT, ~abecs” SCopELst : 2020 
27 15 0002A BLEQ 2 3 
57 68 00 999 C MOVL dacs SCOPELST, OLDLST : 2023 
52 67 DO 0002F MOVL oCST), Re > 2026 
0B A2 9F 000 2 PUSHAB 3 
69 01 FB 000 CALLS #1, DBGSGET_MEMORY : 
68 50 00 000 MOVL RO. pecs. SCOPELST ; 
5 04 C4 00038 MULL #, R > 2025 
5 04 co 0003€ ADDL : 
00 «88 fs 52 28 00041 mOVC +0 fOLDLST) acs. SCOPELST : 
00 88 OA CO 00046 ADDL2 #16, adBG$_SCoP : 2026 
57 DD O004A PUSHL st : 2027 
000000006 00 01 FB 0046 CALLS BGSRE : 
00 8846 08 AC 00 00053 2s: MOVL Scopes tte SCOPELSTL SCOPE CNT] : 2033 
56 b 9039 MOVL COPE_CNT, @NCANDS : 30 
4 00050 RET : 2037 
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O38 ROUTINE GET_BLISS_SPECIAL_CASES(DSTPTR): NOVALUE = 

046 ' FUNCTION 

41 This routine handles the data type information for BLISS SPECIAL CASES 
4 DST Record. Its DST type is DSTSK_BLI, RST kind is RSTSK_DATA, and 

04 RST Fcode is RSTSK TYPE BLIDATA. 


The text printed will be of the form: 


ee 


048 ref : vector CUNITS iy eheoe 


Cformal) 
bitvector CUNITS 
block CUNITS,BWL 


blockvector (N,BS,BWL) 


@ ooo eo-- > 


} ccccecs 


UNITS == the number of units. 


pofejlolelelelelelojeio) 
PPP ASIII 


SESES 
wn Ooo 
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6969 08 SI I SW SI SINS NSINNSIO OO 
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BWL - BYTE, WORD or LONG. 
N, BS == the 3i38 values for BLOCKVECTOR as defined in the 
BLISS=-52 Language manual. 
! INPUT 
06 DSTPTR = Pointer to DSTSRECORD, fields can be (DSTSBLI_FIELDS, 
06 DSTSBLI_VEC_FIELDOS, DSTSBLI_ BITVEC FIELDS, 
6 DSTSBLI-BLOCK_FIELDS, DSTSBCI_BLKVEC_FIELDS). 
064 ! OUTPUT 
065 None. 
066 
BEGIN 
MAP 
DSTPTR: REF DSTSRECORD; 
CAL 
TRAIL1?: REF DSTSBLI_TRAILER1, ' Pointer to trailer 1 
TRAIL2: REF DSTSBLI_TRAILER2; ! Pointer to trailer 2 


uw MUNIN ELSES Wrrororororrereorery 


BNO MEAN 0 OBNO VME WN 0 OOO EAN“ O DONOU EWN OOONS 


Set up pointers to the trailing fields. 


TRAIL! = DSTPTR DSTSA_BLI_TRLRI + .OSTPTRCDST$B_BLI_LNG); 
TRAIL2 = TRAILICDSTSA BL {-TRLR2 + .TRAIL1CDST$B~B1 I ~NAME); 


IF .DSTPTREDSTSV_@LI REF 


HEN 
a hati BYTE(ZASCIC’, ref’), 0) 
DBGSPRINT(UPLIT BYTE(ZASCIC’,"), 0); 


DODO OVDO VOODOO ODO OOO DOO ODDO ODODOODODODOODODODOODODOODOOOOOO 
PADMA WNAWNANAS woe 


Lt Ss 


: Get the structure information of this symbol. 
CASE. DSTPTRLDSTSV_BLI_STRUC) FROM DSTSK_BLI_NOSTRUC TO DSTSK_BLI_BLKVEC OF 
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SOOOSCOSOSOOSOSCSOOoOoOoCoOoCoooeeo 
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1 
VESeorH9Es QBHHP:BE YMG! SLigsss2 westrzeg Pane 
No structure information. 
CDST$K_BLI_NOSTRUC): 
eer BYTE(ZASCIC ° no field structure’), 0); 


Vector. 
{DST$k BL1_VEC): 
DBGSPRINT(UPLIT BYTE(ZASCIC’ vecto 
BLIUNIT (DSTPTRED DSTSV_BLI_VEC_UNIT 
IF .OSTPTRLDST$V_BLI-VEC-SIGN_EXTJ 
NDBGSPRINT(UPLIT BYTE(ZASCIC',signed]"), 0) 
DBGSPRINT(UPLIT BYTE(ZASCIC']"), 0); 


END; 


Uh De -DSTPTRCDSTSL_BLI_VEC_UNITS)); 


Bitvector. 
{DSTSK BL1_BITVECI: 
DBGSPRINT (UPLIT BYTE(ZASCIC ' bitvector£!ULJ"), .DSTPTRCDST$L_BLI_BITVEC_SIZEJ); 


Block. 
tosTsk BLI_BLOCK): 
DBGSPRINT (UPL IT BvTE 
(ZAS a ‘UL %, CRSUNIT SiZ8) BLI_BLOCK_UNITS)); 
BLIUNITIDSTPTR DST$V_BLi_BLOCK UNI J; 
soserndat! CUPLLS BYTETZASTIC 'J"), 
Blockvector. 


CDSTSK_BLI_BLKVEC): 
BEGIN 


DBG PRINT CUPLIT BYTE(ZASCIC ' blockyectorC ‘UL. !UL."), 
i STSL BLL BLEVEC BLOCKS . 
STPTR DSTSL Bul BLKVEC"UNITS)); 
a 1ygpSTeREDS TSS 8 Bul BLEYES UNIT SIZE); 
DEGSPRINTCUPLIT BYTETZASCIC ‘I'S, 0); 


ie tf OUTRANGE J: 
one PRINT(UPLIT BYTE(ZASCIC ' invalid structure’), 0); 
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21 


030 
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Oo lolelolelolelolole) 


55 


58 


75 


62 


74 
2c 


21 


72 


72 


20 


73 
4c 


58 
2c 


oF 


74 


4C 


ed ad do 
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20 
55 


72 
4C 


P4 


73 


5° 


VIEW OOONOULE wT 


64 
21 


6F 
55 


63 


20 


21 


6c 
58 


5D 
74 
21 


65 


TES; 


IF .DSTPTRCDSTSB_BLI_FORMAL] EQL 
THEN 


1 


DBGSPRINT(UPLIT BYTE(ZASCIC’, formal’), 0); 


IF_,TRAIL2COSTSL_BLI_SIZE] NEQ 0 
THEN 


AX-11 Ol igsnce ve 0-296 
DEBUG. SRC JDBGSYMBOL .B32; 1 


DBGSPRINT(UPLIT BYTE(ZASCIC', size: !UL bytes’), .TRAIL2CDSTSL_BLI_SIZEI); 


6C 61 76 of 34 


9 
+ 6D 72 6F 
A 65 7A 69 


RETURN 0; 
END; 
66 65 72 20 : 83 
65 69 66 20 6F $f 0 3 
ot. 3 4 g 
72 6F 74 63 65 76 20 OC 
65 74 79 $6 04 
64 72 6F 04 
67 6E€ 6F gf 04 
4C 53 21 O3 
64 65 6E 67 69 73 gf 3 
63 65 76 74 69 62 20 oF 
5B 68 63 6F C 62 20 OB 
65 74 7 § 8 
64 72 6F 4 
67 6€ 6F 6C 04 
4c 53 if 83 
D Q1 
76 68 63 6F C 62 20 2 
ec 4€ 33 21 . 2. 9 
65 74 79 § 4 
64 72 6F 4 
67 6E€ 6F C 04 
4c 53 21 ; 
6 8 12 
$8 Yk 
t 08 
f 11 
65 74 
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DBGSPLIT,NOWRT, 
<5>\, ref\ 
“19> no field structure\ 
<12>\ vector€!Uk..\ 


<4>\byte 
<4>\word\ 


SHR, PIC,0 


<15>\ bitvector(C!ULI\ 


<11>\ blockC!UL,\ 
<4>\byte\ 
<4>\word\ 
<4>\long\ 

<3>\'SL 


<1>\J\ 

<21>\ blockvector(C!UL,!UL.\ 
<4>\byte\ 

<4>\word\ 

<4>\Long\ 

<3>\'SL 

<1>V\J\ 
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vee e000 1$-se0-1984 93:75:88 | HOKauG. Sacdoageymeor .639,1 Page $5 
7 BRIE ose, HS tare tas 
9 14C BEQL : 
or RB | FERS ne t. 
67 $F FB 0154 CALLS #2, DBGSPRINT ; 
0157 268: RET : 2165 


; Routine Size: 344 bytes, Routine Base: DBGSCODE + OC3A 
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/¥O4=000 eager taRe PS: TFss | ANENE Shigsese ve On28s | 9 43) 


3 045 166 ROUTINE GET_VARIANT(VARIANT_SYMID): NOVALUE = 
13 oh 168 1 ! FUNCTION 

3; 2048 | 1! Get information from the RST for a variant. 

3 2049 170 1! 

; bey 171 1°! INPUTS 

; 2051 176 i VARIANT _SYMID = One of the Record Component RST entries in RST Entry 
3 p2¢ fee for Data Type. 

; 205 17% #1! 

: 2054 175 1 =! OUTPUTS 

; 2055 176 1! None. 

3 828 177 1! 

; 205 178 1 

; 2058 17 BEGIN 

; 2059 180 

; 2060 13) Pp 

3 sd 18$ VARIANT_SYMID: REF RSTSENTRY; ! Pointer to RST entry for variant 

; 068 184 LOCAL 

3 2064 185 BITSIZE ! The size in bits of the given item 
; 2065 186 COMPVECPTR: REF VECTORL,LONG], | Pointer to a vector of variant 

3 2066 187 : component SYMIDs and tag values 
3; 2067 188 DSTPTR: REF DSTSRECORD, ! Pointer to DST entry 

; 2068 189 ELTVECPTR, ! Pointer to a vector of field SYMIDs 
3 2069 190 LENGTH, ' Length of RST entry 

; 2070 191 LIST_ID: REF RSTSVAR_ENTRY, ! Pointer to variant component RST entry 
3 2071 135 NAME: REF VECTORC,BYTE), ! Pointer to counted ASCII string 

; O76 19 NCOMPS, ! The number of variant components 

; 207 194 NELTS, ! The number of fields 

3 2074 195 NTAGS, ! The number of tag blocks 

; 2075 196 SIZE, ! The size in bits of this variant 

3 $o7g 197 TAG: REF RSTSENTRY ! SYMID of the variant tag field 
; O77 198 TAGVECPTR: REF VECTORC,LONG]; ! Pointer to a vector of tag value ranges 
3; 2079 00 

; 2080 01 

; 2081 8 DBGSNEWLINE(); 

3 rt 0 DBGSST RIANT(.VARIANT_SYMID, NCOMPS, COMPVECPTR, TAG, BITSIZE); 

; 208 04 GSPRIRT_CONTROL (DBGSK PRISET RLMARGIN, +2); 

3: 2084 5 DEGSPRINT CUPL IT BYTE(ZASCIC ‘with 'UL 'S, .NCOMPS); 

3; 2085 88 LENGTH = DB ANSALATE_KIND(.VARIANT sraip): 

: 2086 NAME = be $GET Dgt MAMET. TAGLRSTSL_DSTPTR ); 

: et 4 IF ” wees J NEG 

; O88 19 DBGSPRINT(UPLIT BYTE(ZASCIC °, tag: !AC*), .NAME) 

3 a4 \¢ DBGSPRINT(UPLIT BYTECZASCIC *, tag: anonymous’), 0); 

3 $98 14 ITEM _SIZE(SITSIZE); 

3 2094 15 DBGSREWLINE(); 

3; 2095 16 INCR I FROM 0 TO .NCOMPS - 1 DO 

; O98 1 BEGIN 

; 209 18 LIST_ID = .COMPVECPTRC.1); 

:; 2098 1 DBGSSTA_TYP_VARIANT_COMP(.LIST_ID, NELTS, ELTVECPTR, NTAGS, 

: 2099 0 TAGVECPTR, $128); 

3; 2100 1 DBGSPRINT(UPLIT BYTE(ZASCIC ‘variant 'uL:'), .1 + 1); 

; 2101 2 DBGSPRINTC(UPLIT BYTEC(ZASCIC * !UL fields’), .NELTS); 


ea Mi PRIA se AS Lea aE AMO SED EE OEE UE oe Fe 


<o 


1 
‘bags umgoL yE-sep-1964 02:49:58 YMK=I1 BLine=52 V4.0-742 Page 71 
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| 
£3108 3 ITEM SIZE(SIZE); 
32 i DBGSREWLINE(); 
i3 : 3 ‘ END; 
321 DBGS PRINT FLAG = FALSE: 
; 109 8 FOBGS OOALIFIERCSYMBOL _RSTI 
; 2109 0 "DBGSDUMP_HEX(. GWARIANT SSYMID, -LENGTH © 4. VARIANT SYMID, 
: 110 1 PLIT BYTE (ZASCIC variant RST ' 
; 118 j DSTPTR = .VARIANT BYMIDERSTSL DSTPTRI; 
: aE : IF ,bacs_ QUALIF IERCSYMBOL_D 
: 2115 6 DEGSDUMP_HEX( .DSTPTR. .DSTPIRCDSTSB_LENGTH] + 1,  .DSTPIR, 
3 138 , UPLIT BYTEC(ZASCIC ' variant DST ')); 
: 2118 9 DBGSPRINT_CONTROL (DBGSK_PRTSET_RLMARGIN, -2); 
3 133 7 RETURN 0; 
> 2121 42 1 END; 
.PSECT DBGSPLIT.NOWRT, SHR, PIC.O 
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20 4C 55 21 20 68 74 69 77 09 00750 P.AEQ: ASCII <9>\with ‘UL \ : 
43 41 21 20 3A 67 61 7% 20 C OA 00754 P.AER: .ASCII <10>\, tag: !AC\ : 
/6F 6D 6— 6F 6E 6 A 67 6 4 P.AES: .ASCII <16>\, tag: anonymous\ 3 
79 1 20 7 61 74 20 | 00765 
3 3A 65 7A 69 73 20 C 0B 00776 P.AET: .ASCII <B>\, size: ; 
74 69 6 20 4C 1 O08 OO77F P.AEU: . ASCII <8>\fuL Eis : 
73 65 74 79 62 20 4¢ 55 21 09 0788 P.AEV: .ASCII <9>\!UL bytes\ ; 
73 7% 69 62 20 4C 3 21 20 09 00792 P.AEW: . ASCII <9>\ !UL bits\ : 
3A 4¢ 55 21 20 76 6€ 61 69 61 6 C 0079¢ P.AEX: ASCII <12>\variant !UL:\ : 
73 64 6C 65 69 66 20 4¢ 55 21 2 8 007A P.AEY: .ASCII <11>\ 'UL fieids\ F 
g A 65 7A 69 ? g C O08 00785 P.AEZ: .ASCII <8>\, size: \ : 
4 69 6 20 4C 1 08 413 P.AFA: .ASCII <8>\iuL bits\ ; 
73 65 74 79 6 $f . ae 9 O0O7C7 P.AFB: .ASCII <9>\!UL bytes\ 3 
73 74 69 $¢ 4c 5 1 20 09 00701 P.AFC: .ASCII <9>\ ‘UL bits\ } 
6— 61 69 72 61 76 20 20 . ¢ ¢9 ; 8 Ye 3708 P.AFD: .ASCII <20>\ variant RST \ r 
6— 61 69 72 61 76 20 20 20 20 $9 ¢9 2 0 14 OO7FO P.AFE eASCII <20>\ variant DST \ ; 
0 54 44 20 74 OO7FF ; 
| .PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OFFC 00000 GET_VARIANT: 
| «WORD Save R2. R3. R4,R5,R6,R7,RB,RI,RIO,R11 : 2166 
8 990000006 00 9€ 0 93 MOVAB SBUSPRIN “rif ; 
| A 00000000" EF 3 ! NOVA P AEG. RIG : 
000000006 6 0 FB 13 CALLS 70° DBGSNEWL INE : 2208 
E DD OOO1A PUSHL SP 3 220 
08 AE OF 1C PUSHAB TAG ; 
| 1 AE 9F OOO1F PUSHAB COMPVECPTR : 


r- = eee — —_ ————— a 
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14-Sep-1 DEBUG.SR MBOL .B32;1 (13) 
18 AE OF g PUSHAB NCOMPS : 
| 57 04 A bo 3 ROVE VARIANT_SYMID, R7 : 
000000006 00 FB 8 CALLS #5, DBGSSTA_TYP_VARIANT : 
a or 
| 000000006 00 FB 6 CALLS #2, DBGSPRINT_CONTROL : 
OC AE DD D PUSHL NCOMPS + 2205 
SA DD 0004 PUSHL : | 
68 0g FB 0004 CALLS #2, DBGSPRINT : 
DD 0004 PUSHL R + 2206) 
FASE cf 9} F 8 47 CALLS #1, DBGSTRANSALATE_KIND 3 | 
| 9 0 D 4C MOVL RO. LENGTH : 
| 50 04 AE DO 0004F MOVL TAG, R : 2207 
0C AO DD 00053 PUSHL  12(RO0) : | 
000000006 00 01 FB 00056 CALLS #1, DBGSGET_DST_NAME : 
60 95 00050 TSTB (NAME ) : 2208 
07 13 0005F 1 : 
0 Dd 00061 PUSHL NAME t 2210. 
USH eA 3 
OA AA 9F 00063 PUSHAB P.AER 
05 11 0066 BRB 2$ : | 
7E 04 00068 1$: CLRL = = (SP) : 2212. 
15 AA 9F OO06A PUSHAB P.AES : 
68 02 FB 0060 2s: CALLS #2, DBGSPRINT : 
52 ce dO 000 0 MOVL  BITSIZE, R2 > 2214) 
€ 13 0007 BEQL ; | 
53 52 08 c? 00075 DIVL3 #8, R2, BYTES : 
54 52 0 00 €F 00079 EXTZV #0. #3. R2, BITS F 
7E 04 OO07E CLRL 0s = ( §P) ; 
26 «AA OF 90089 PUSHAB P.AET : 
; 68 9¢ FB 0008 CALLS we. DBGSPRINT : 
D4 00086 CLRL OR : 
54 05 00088 TSTL iTS F 
OF 13 0008A BEQL 5 : 
55 D6 0008C INCL = RS : 
20 32 D1 0008E CMPL =s- R2, «#32 : 
0 14 00091 BGTR 3$ ; 
2 DD 0095 PUSHL  R2 : 
2F = AA «OF 0009 PUSHAB P.AEU : 
14 11 00098 BRB 5$ : 
5% 03 009A 3S: TSTL BYTES ; 
08 13 0009¢ BEQL 6 4$ : 
5 po 009 PUSHL BYTES : 
38 AA 9F OOOA PUSHAB P.AEV : 
68 é FB A CALLS ae. DBGSPRINT : 
08 E Ong 4$ BLBC 3=s_«aRS,._ 6S : 
rh BD A9 PUSHL BITS : 
42. AA 9F OOOAB PUSHAB P.AEW ; | 
| 68 ve FB AF 5$ CALLS ae DBGSPRINT F 
| 000000006 99 FB 000B1 6$ CALLS #0, DBGSNEWLINE ; 315 
| 1 CF 88 MNEGL #1. | > 2018. 
9 BB BRB 12$ ; 
58 08 BE42 pO BD 7$ VL @COMPVECPTRCIJ, LIST_ID ; 
10 AE 9F 000C PUSHAB SIZE : 2219 
| 18 AE i ¢ PUSHAB TAGVECPTR ; 
; AE 9F 000C PUSHAB NTAGS : 
| AE 9F 000CB PUSHAB ELTVECPTR : 


.--- ee 


DRGSYMBOL 1 
\¥ -000 1 
so ane 
| 000000006 00 Og PB 00003 
| 01 AZ 9F QOODA 
4C AA 9F 0000 
| 68 02 FB e9 
20 AE BD 0008 
| 7 03 Fe OO0ES 
85 10 AE BO QOOE 
ee BE 
55 33 33 8 EF O00F 
65 AA 9F O00ED 
6h 02 FB 00100 
36 D4 a1 
@ 48 Solo? 
on «=o EB 
7 14 0010 
3 pp 0011 
ae ee a 
54 D5 00117 
8 13 00119 
7 BREE 
68 02 FB O01 Q 
09 56 £9 001 
55 0D 3 6 
0081 CA OF 001 
6B 2 FB O012C 
000000006 00 00 FB OO1eF 
2 52 Oc AE F2 001 
00000000" FF D4 00158 
11 00000000" EF 04 £1 OOI41 
r s  ® R BE 
85 ot 0153 
an eat 
12 00000000" &F = 05 EI 138 
| 56 BD 0016A 
| 7E 60 9A 0016C 
DD 00171 
| rere CF 4 FB 173 
, i Sie 
000000006 00 FB 0017D 
04 00184 


; Routine Size: 389 bytes, Routine Base: DBGSCODE + 0092 


13$: 


148: 


Ax-11 Ohi gee 
DEBUG.SRCJDB 


List ID 
#6, BEGSSTA_TYP_VARIANT._ COMP 


P, AEX 
#2, DBGSPRINT 
NELTS 

P.AEY 

#2, DBGSPRINT 

‘ E, R3 

#8, R3, BYTES 

Ai a: R3, BITS 
-(§P) 

P.AEZ 

#2, DBGSPRINT 

R6 


ITS 
$ 


RS 

R3, #32 

8$ 

R3 

P.AFA 

10$ 

BYTES 

9$ 

BYTES 

P.AFB 

#2, DBGSPRINT 
R6, 11$ 

BIfs 

P.AFC 

ae, DBGSPRINT 

#0, DBGSNEWLINE 
NCOMPS, I 

DBG$ PRINE FLAG 

#4, BBG$_QOALIFIER, 13$ 
P.AFD 

R? 

#2. LENGTH, -(SP) 

#4 DEGSDUMP HEX 
gtr ), DSTPTR 

#5, DBGS_QUALIFIER, 14% 
P.AFE 

DSTPTR 

(DSTPTR), (SP) 

(SP) 

DSTPTR 

#4, DBGSDUMP_HEX 

#2. =(SP) 


i DBGSPRINT_CONTROL 
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peer fs 
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a a a ee 


symbols 
Pointer to returned pathname vector 
Temporary Memory Pool Stac 
Length for TYPE RST entry 
Symbol outputted count 
Pointer to a counted string 
Pointer to TYPE RST entry 


PATHNAME , 
POOLID, 


SI 

SYMBOL _CNT, 

SYMNAME , 

TYPEID: REF RSTSENTRY; 


f 
4 1 
, DBGSYMBOL 16-Sep-1984 02:39: AX-11 Bliss-32 v4.0-74 Page 75 
VOee Vexgeen13Be 95:73:88 = Home bG ke Sbeceymeor oss; 9 14) 
3 ; $? ROUTINE SHOW_SYMBOL(RSTPTR, NCANDS): NOVALUE = 
: 45 i FUNCTION 
‘8 : This routine shows the kind of fhe symbol and the name of the symbol 
4 : in full pathname format. Additional information, such as data types 
rk ‘ or address specifications, or RST, or DST is also shown if the 
2 qualifiers are given. 
i i INPUTS 
§ ' RSTPTR = Symbol's RST entry 
34 NCANDS = Keep track of the number of symbols is shown 
5 i OUTPUTS 
28 ! None. 
By 
i 28 BEGIN 
4 61 MAP 
4 o¢ NCANDS: REF VECTOR(1), ! Keep track of outputted symbols 
2 6 RSTPTR: REF RSTSENTRY; ! Selected candidate symbol RST entry 
4 LOCAL 
4 DSTPTR: REF DSTSRECORD Pointer to DST mery 
4 LANGUAGE: REF VECTORC,BYTE), Pointer to counted ASCII string 
4 LENGTH, Length for RST entry 
4 KIND Symbol's kind field 
5 OL_ TRAILER: Overloaded symbol’s DST trailer 
5 REF DSTSOVERLOAD 4 
2 OL_VECTOR: REF VECTORC,LONG), Vector of DST pointers for overloaded 
5 
5 
5 
5 
5 
5 
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ee ee a ek dd = od 8 8d td = = 


Abort this operation now if the Control-Y DEBUG flag is set. 
$ABORT_ON_CONTROL_Y; 


Everytime this routine is called, increment the count up by 1. 
SYMBOL_CNT = .NCANDS(O); 
SYMBOL-CNT = .SYMBOL_CNT ¢ 1; 


on. Assume symbol does not have any type and the Length 
RST entry is zero. 


NOCOSCAAaO 
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GSYMBOL ep-1984 AX-11 Bliss-32 LaF Page 76 
we 300 a ae 93:73 38 DEBUG.SR RCIDB BGSYMB O34, 31 ° (14) 
' Get symbol's kind field, and transalate it into user readable form. 


BBGSSTA. SYMKIND(.RSTPTR, KIND) 
LENGTH = DBGSTRANSALATE_KIND(. RSTPTR): 


Push the tempory memory pointer. 

POOLID = DBGSPUSH_TEMPMEM(); 

! Get the symbol'’s fully qualified pathname descriptor, and then call 

: DBGSNPATH ESC 10. CS to translate the contents of the pathname descriptor 
into a printable form. 

DBGSSTA Das geet th RSTPTR, gig ove 


DBGSNPATHDESC_TO_CS(.PATH HNAME , SYMNAME 5; 
SO OS PRINT CUBLIT BYTE(XASCIC ° !AC* . SYMNAME) ; 


Print out the Language used for module. 
if .KIND EQL RSTSK_MODULE 
THEN 


AAA AIA AAAI AINA AIA AAAN AANA 
DOoooeo 
Secearoxcs 


PEP H&E AAA AANIIGPPNPONIPININPININID 2 OO OO Oe Oe es 


REWN OO OONOA UNE WN " O ODNOAU EW" O OONOUS WR OOO 


BEGIN 
DSTPTR = RSTPTRERSTSL DSTPTRI 

ANGUAGE = DBGSLANGUAGE (DSTPTRCDSTSL -MODBEG LANGUAGE }) ; 
DBGSPRINT CUPLIT BYTECEASCIC *, Language 'AC'S, .LANGUAGE); 


Check to see if this symbol is global symbol. Mark it if so. 
if .RSTPTRCRST$SV_GLOBAL 
THEN 

4 

4 


Be Se Se ee Ge Ge Se Ge Ge Se Se Se Se Se Ge Ge Se Se Ge Ge SHS Ge Se Ge Se Ge Se Se Se Ge Se ee 


DBGSPRINT(UPLIT BYTE(ZASCIC ° (global)"), 0); 


Ouput symbol kind and name, or (global). 
DBGSNEWL INE (); 


NB Sa waar nose LET F ERIS SS ISRO SESE RESTOR 


REWN $0 OOwO VFWR “OOOO UEWN "OC 0@~ 


WAAL ANI AIAN AAI AAW 


Print the instances for an Overloaded symbol. 
If i -KIND EQL RSTSK_OVERLOAD 
BEGIN 
DBGSSTA SYMPATHNAME( .RSTPTRC RSTSL_UPSCOPEPTR J, PATHNAME ); 
NPATHDESC TO_CS(. PATHNAME YMNAME ) ; 
sty = ,RSTPTRE R T$t 13" 
ot TRAILER = DSTPTAE Bh our TRAILER ; : .DSTPTRE DSTS$B_OL_NAME ); 
on 8¢t0 TO — ETRATCERE “porta “OL. * cbiedt } -1 DO 


oa! Mowebastys BYTE(ZASCIC * overloaded instance !AC*), .SYMNAME); 


RIPIPOPIPDATINDPDAIPDPIDIPINONIPYDININININININININININININININININININININD 8 8 9 9 ot tO OO OS OS OO SO 
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voL-000 102885-1984 95:79:85 DEBUG. SRC IDBGSYMBOL .B32; 1 Me 1a) 
DBGSPRINT(UPLIT BYTE ( ZASCIC'\IAC’ ) | 
DBGSGET_DST_NAME(DBGSRST_DST_PTR(.OL_VECTORC.1] + 
;DSTSBEGIN_RDDR))); 


END; 


} Pop the temporary memory pointer. 
DBGSPOP_TEMPMEM( .POOLID); 


! Output additional information according to the given command qualifier. 
/ADDRESS == Print the address specification for each selected symbol. 


If ;,DBGS_QUAL IF IERCSYMBOL ADDRESS] AND .KIND NEQ RSTSK_MODULE 


BEGIN 
DBGSPRINT_CONTROL (DBG$K_PRTSET_LMARGIN, 4); 
SHOW_SYMBOL_ADDRESS(. : 

DBGSPRINT_CONTROL (DBGSK_PRISET_LMARGIN, 0); 


! /TYPE == Print data or record component type inforamtion for each 
' selected symbol. Set the context needed for subsequent DST value 
spec evaluation, 


if .DBG$_QUALIFIERCSYMBOL_TYPE) AND 
NOT .RSTPTRCRST$V_GLOBAL] AND 
a a EQL RSTSK_BATA OR .KIND EQL RSTSK_TYPCOMP) 
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270 
271 BEGIN 
37¢ 9 DBGSSTA_SETCONTEXT( .RSTPTR); 
7 9 DBG$_PRINT_FLAG = TRUE; 
7% 9 DBGSPRINT CONTROL (DBG$K_PRISET_RLMARGIN, +4); 
75 9 SHOW_ SYMBOL (,RSTPTR); 
2 9 DBGSPRINT_CONTROL (DBGSK_PRTSET_RLMARGIN, -4); 
7 9 END; 
78 9 
79 9 
0 ‘8 aor record component pyndol has TYPE field, get a bit more 
1 1 ST information about this symbol for /RST and /DST. 
68 08 EQL RST$K_DATA OR 
04 EQL RST$K-TYPCOMP 
5 oR? 
; soy 
4 4 BEGIN 
9 40 TYPEID = .RSTPTRIRSTSL_TYPEPTRI; 
90 410 SIZE = RSTSK_TYPENTSIZ~+ .TYPELOCRSTSL_TYPCOMPCNT); 
91 ai} END; 
38 218 
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2 
vos-000 JESec49$6 QB:FR:HE  YAEGNE BLS wSa0uzs 1 Pee ad) 


+ 2296 414 : /RST == Print each selected symbol'’s RST entry in hexadecimal. 3 | 
: ot ti2 } (for developers only.) 2 
: 559 119 iF .DBG$_QUALIF IERCSYMBOL_RST) 5 | 
; 2298 413 THEN : | 
; 99 41 BEGIN ; 4 
3 00 420 DEGSDUMP_HEX(.RSTPTR, .LENGTH * 4, .RSTPTR, 4 
H 4 : UPLIT BYTE(ZASCIC ° RST entry dump ')); s 4 
; P| 
3; 230 4 | 
i 9304 424 ! If the symbol has TYPE RST entry, dump it as well. 3 
; 2306 4 : IF .TYPEID NEQ 0 THEN DBGSDUMP_HEX(.TYPEID, .SIZE * 4, .TYPEID, 3 
; 2307 4 UPLIT BYTE(ZASCIC™' ‘TYPE RST entry 'S): 3 
i 2508 428 END; 3 4 
RS : 
: 11 431 : /DST == Print each selected symbol's DST entry in hexadecimal. : 
3 \¢ ? ¢ ; (for developers only. - 4 
: 314 2434 if .DBGS_OUALIFIERCSYMBOL DST] 3 | 
: $316 436 BEGIN 4 
3; 2317 437 DSTPTR = .RSTPTRCRSTSL_DSTPTRI; 3 4 
3; 2318 438 DBGSDUMP_HEX(.DSTPTR, .DSTPTRCDSTSB_LENGTH] + 1, .DSTPTR, 3 4 
; 338 rh UPLIT BYTE(ZASCIC ' DST entry dump ')); ¢ 
: 5354 441 : Save the value of DSTPTR as ‘'\'’. This is useful for poking ; 
3 356 ra | ! the DST in tests. It doesn't affect behavior that the user 3 ¢ 
; $7 3c sees since /DST is under the control of developer 0. e 4 
3 : | 
; $52 rei ; DBGSSAVE_VAL (DBGSMAKE_INTEGER_DESC(.DSTPTR)); 3 4 
3 $< 
3 329 vi If the symbol has TYPE RST DST entry, dump it as well. i ¢ 
Py . e¢ 
3 4 mes AN aad NEQ 0 : é 
; 2331 451 4 BEGIN : | 
5 $36 128 & DSTPTR = .TYPEIDCRSTSL_DSTPTRI; 6 
3 233 453 4 DBGSDUMP_HEX(.DSTPTR, .DSTPTRCDST$B_LENGTH] + 1, .DSTPTR, 34 
3; 2334 454 4 UPLIT BYTE (£ASCIC , TYPE DST entry ')); s ¢ 
> 2335 455 END; 3 4 
: 2336 456 ; 
i 2537 457 END; :f 
‘ey, : 
: a9 +69 } Update the count. 3 : 
; 5g 46¢ NCANDSCO] = .SYMBOL_CNT; : 
3 46 RETURN 0; 3 4 
3: 2344 464 3 ¢ 
; 2345 465 END; : 6 
4 
24 
.PSECT DBGSPLIT,NOWRT, SHR, PIC,O ; i 
| 
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GSYMBOL 16-Sep-1984 02:3 AX-11 Bliss-32 v4.0 P 79 
yOe:008 aR atts VaR et ot Mm SRR OR Lea tet a9e 1a) 
43 41 21 20 04 S P.AFF: .ASCIIT <4>\ !AC\ | ; 
43 41 21 20 65 67 61 75 67 6€E 6) 6¢ RR P.AFG: . ASCII <14>\ Language 'AC\ : 
9 6C 61 $ 6F g¢ 6 19 P.AFH: ASCII <9>\ (global) : 
69 20 64 65 $ 2 gf sf { 8 f of : ( P.AFI: .ASCII <25>\ overloaded instance !AC\ : 
43 41 3i ot P.AFJ: ASCII <4><92>\ AC : 
20 79 72 74 6E 65 20 54 53 52 0 4 43 P.AFK: . ASCII <20>\ ‘RST entry dump \ : 
65 20 54 53 52 20 45 50 59 54 0 14 3} P.AFL: ASCII <20>\ TYPE RST entry \ : 
0 4 6€ £6 
20 79 72 74 6€ 65 20 54 53 44 0 20 20 30 14 0 $¢ P.AFM: .ASCII <20>\ DST entry dump \ : 
65 20 54 53 44 20 45 50 59 0 0 20 23 20 4 6 81 P.AFN: ASCII <20>\ TYPE DST entry \ : 
20 9 4 6€ 00890 : 


-EXTRN DBGS$GV_CONTROL 
.PSECT DBGSCODE,NOWRT, SHR, PIC,O 
OFFC 00000 SHOW_SYMBOL : 


WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 2243 ; 

SE 10 ¢2 90002 SUBL2 a , SP : : 

OD 000000006 00 01 €1 0000 BBC 1, pagsGv. CONTROL+1, 1$ : 2279 ; 
000280E8 8F DD 00000 PUSHL : : 

000000006 00 01 FB 00013 CALLS aié LIBSSIGNAL : | : 
59 08 BC DO OOOIA 1$: MOVL § @NCANDS, SYMBOL_CNT : 290, ; 

39 06 OO1E INCL  SYMBOL_CNT > 2291. ; 

7 04 000 CLRL ~—s TYPEID : 2297 | ; 

5A D4 00022 CLRL —- SIZE : G8 : 

04 AE 9F 00024 PUSHAB KIND : 2303. : 

53 04 aC D0 00027 OVL RSTPTR, R3 ; : 

53 DD 00028 PUSHL R : | ; 

000000006 00 08 FB 0002D CALLS n. DBGSSTA_SYMKIND : : 
DD 00034 PUSHL R t 2304 ; 

F92A CF 01 FB 00036 CALLS #1, DBGSTRANSALATE_KIND 3 : 

6E 50 DO 000 OVL ROLL : F 

000000006 00 00 FB O05 CALLS #0. DBGSPUSH. TEMPMEM : 2309. ; 
5B 5 p 004 MOVL RO. POOLID : : 

08 Ar F 0048 PUSHAB PATHNAME : 2316) : 

53 DD 00048 PUSHL nS 3 3 

000000006 00 02 FB 00040 CALLS , DBGSSTA_SYMPATHNAME : ; 
Oc AE 9F 00054 PUSHAB SYMNAME : 2317 | ; 

OC AE DD 00057 PUSHL PATHNAME : F 

000000006 00 02 FB 0 A CALLS #2, DBGSNPATHDESC_TO_CS : F 
o¢ AE bb 61 PUSHL  SYMNAME > 2318 : 

00000000 ai F 00064 PUSHAB P.AFF : | ; 

000000006 90 2 FB 6A CALLS #2, DBGSPRINT : | ; 
6 04 AE OD 1 MOVL KIND, R6 : 2323) ; 

01 56 01 13 CMPL =sR6, 1 : : 

1 12 7 BNE : | ; 

55 o¢ As OD 7A MOVL (R3) apStPre ; 3336 ; 

a5 DD re PUSHL $(osip : : 

000000006 00 Q1 FB CALLS  DRGSLANGUAGE ; | ; 
0 BD PUSHL Cail : 2328 ; 

ooooo000s 00 92000" FE PE b0090 CLS. #3” DBGSPRINT : 
gf 15 ag £8 97 2%: BLBC ae ash ss ; 2334 3 
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7E ps 098 CLRL = (SP) : 2336 
00000000' EF 9F PUSHAB =P.AFH : 
900000006 : : FB OOOA CALLS ie DBGSPRINT : 
00 6 FB AA 3S: CALLS 40, DBGSNEWL INE + 2341 
: & 9) o00Be aa ER . me 
08 AE 9F B PUSHAB PATHNAME + 2349 
000000006 00 Ay PB 5S CALS 13" a cssra SYMPATHNAME ; 
ARG | pike pee | a0 
F C CALLS # GSNPATHDESC_TO_CS : 
een 99 0 a 06 a8 MOVL 15ta¥s DSTPTR : 335) 
50 06 A? A 00004 MOVZBL 2(DSTPTR) RO + 2352 
30 A045 § 9E 00008 MOVAB $cRo) Cos tore OL_TRAILER : 
é 92 Ad 9E 00000 MOV (RO), OL_VECTOR > 2353. 
5 60 3C 000E1 MOVZWL (OL_TRAILER), R8 : 2354. 
54 or CE OO0E4 MNEGL #1, 71 : 2358 
F 11 000E7 BRB 5$ : | 
0c AE OD BO0E9 4$ PUSHL  SYMNAME + 2356 
ooooo000e 99 000" FE rt a0t CALLS” #2" DBGSPRINT ; 
7E 244 000000006 06 C1 OOOF ADDL3 DSTSBEGIN_ADDR, (OL_VECTOR)CIJ, -(SP) : 3358 
000000006 00 i FB 0108 CALLS a. DBGSRST_DST_PTR ; 2358 
000000006 00 gi FB 0108 CALLS #1, DBGSGET_DST_NAME : 
00000000" éF 9F a PUSHAB PAF ; 2357 
000000006 00 6 FB OO1IA CALLS #2, DBGSPRINT : 
000000006 00 06 te 091 1 CALLS #0, DBGSNEWLINE : 2360, 
BD 54 F2 00128 5$: AOBLSS + 2354) 
000000006 00 + a 001 gee Re OCSPOP. TENPRER 4 sme 
21 90000000" EF 03 E1 61 § BBC #2, DBG$_QUALIFIER, 7$ : 2374 
‘ at ha | 
04 DD 00142 PUSHL 4&4 : 2377 
1 DD 00144 PUSHL #1 . ; | 
000000006 00 03 FB 0146 CALLS We. DBGSPRINT_CONTROL ; | 
DD 0014D PUSHL R : 2378. 
0000v CF 1 FB OO14F CALLS #1, SHOW SYMBOL_ADDRESS : 
000000006 3 3 43 0187 CALLS #2. DBC SPRINT CONTROL ‘babe 
' EF 1 €1 0015E 7S: BBC #1. DBG$ QUALIFIER, 9$ > 2387 
os @ " PRERS fe pw a 
03 13 0016D BEQL : : 
OA 6 oi 16 CMPL = R6,, #10 : 
Hs 12 001 é BNEG 9 : 
DD 00174 8$: PUSHL R : 2392 
Sooo0b00" EF 1 OB 00176 Mout: 1. DBCS PRTAT FeAGe 2393 
3 Bb OOt gee Gea nae. : 28% 
FB 001 CALLS i. DBGSPRINT_CONTROL : 
selene BB 18F PUSHL > 2395 
0000v CF 01 FB 00191 CALLS #1, SHOW_SYMBOL_TYPE ; 


Re Oe Se Se Oe Se Se Se Be Se Se Se Se Se Be Ge Se Ge Ge Se Se Se Se Ge Se Se Se Se Ge Ge Oe Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se ee Se Se Se Se Se eee Se ae 
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#4, =(SP) 

CALL We, DOGSPRINT CONTROL 
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000000006 90 
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o 
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YPEID 
SA 28 YPEID), SIZE 
2B 00000000' QUALIFIER, 128 


00000000° 
7E 08 AE 
FAIS =CF 


ASHL #2, LENGTH, -(SP) 

CALLS #4, DBGSDUMP_HEX 
TYPEID 

12$ 

00000000° 


TYPE ID 
7E SA ASHL #2, SIZE, (SP) 
YPEID 


FAQ! CF 
46 00000000° gf 


4, DBGSDUMP 
5 oc 128: BBC #5, at QUAC TF TER, 13$ 
00000000' 


— —) ss ws 2 I 
OMWNMMMMMMOVIVOOOOWOOr>>>r>r > 
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F9E1 =CF 
000000006 00 
000000006 00 


TR 
CALLS #4. DBGSDUMP_HEX 
CALLS #1, DBGSMAKE_INTEGER_DESC 
DBGSSAVE_VAL 


MAO NW "WES 
@ 
m 
=) 
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5 oc PEID), DSTPTR 
00000000° 


TR), =(SP) 
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DBGSDUMP 
13$: MOVL SY YMBOL _ CNT, SNCANDS 
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; Routine Size: 576 bytes, Routine Base: DBGSCODE + OF17 
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Page 82 
DEBUG. SRC JDBGSYMBOL .B . 8 


! Pointer to input symbol's RST entry 


Symbol's address kind 

Symbol's address vector 

Pointer to Bliss DST record trailer 

Value Spec buffer for Bliss Special 
cases DST record 

Pointer to DST Record 


} r 
Pointer to DST record's value spec 


188 ROUTINE SHOW SYMBOL _ADDRESS(SYMID): NOVALUE = 

468 i FUNCTION 

rf : This routine takes a SYMID and shows the address information associated 
rh with the input SYMID. 

are i INPUTS 

ot? SYMID = The SYMID for the symbol. 

475 i OUTPUTS 

$28 ‘ None. 

wy 

299 

480 

i 

788 

cB 

485 

489 FIELD(DST$SVS_HDR_FIELDS), ! 

490 DSTPTR: REF DSTSRECORD 

491 VALSPEC: REF DSTSVAL_SPEC; 

49 

494 VALSPEC = DBGSSTA_SYMADDR(.SYMID, ADDRPTR, ADDRKIND); 
rh oe ee FROM DBGSK_ADDRKIND_LITERAL TO DBGSK_ADDRKIND_INVALID OF 
49 

498 


This is a literal value. 
CDBGSK ADDRKIND_LITERALI: 
+ yatadatiena BYTE(ZASCIC ‘c 


Wwn—o 


oooeo 


This is an address or descriptor 
CDBGSK_ADDRKIND_ADDR, DBGSK_ADDRK! 


ELS DBGSPRINT(UPLIT BYTE(RZASCI 
DBGSPRINT(UPLIT BYTE(ZASCI 


complete, there are some ext 
to get the contents of 
in DBGSSTA_ADDRSPEC 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

BEGIN 
Pp 
SYMID: REF RSTSENTRY; ' 
LOC 
ADDRKIND, ! 
48 ADDRPTR: VECTOR(2), ! 
48 BLITRLR: REF DST " voageent. ! 
488 BLIVALSPEC: BLOCK(8,BYTE ! 
& 
! 
that routine, so this piece 


RN OOOO 
NUSSa~wenrunv—OSe Near 


he Val Spec. 
unfortunately, 


onstant: !SL'), ..ADDRPTR(O)); 


representation. 
ND_DESC): 


i »ADDRKIND EQL DBGSK_ADDRKIND_ADDR 


C ‘address: '), 0) 
C ‘descriptor address: '), 0); 


For Bliss Data Items, if the address interprestation is not 


ra work has to be done in qreer 
(This excersize is done 
he value needed is local to 


of code is reproduce that value 


asa 
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H 2 
1-38-1986 19:17:59 Eoeauc. Ske Sos ymedL -659; 1 
from the DST) 


DSTPTR = .SYM BERSTS} DSTPTRI; 
TF ( -ADDRPTRL LSS OF AND (.OSTPTRCDSTS$B_TYPE) EQL DSTSK_BLI) 


IN 
BLIVALSPECCDS1$B VS_VFLAGS) = absTeTReDS Tse BLI_VFLAGS); 
TRLR = peter COSTSA BL J .TRLR + aPsTPIRCDS 156 BLI_LNGJ; 
BLIVALSPECCDSTS$L_VS yaCue = ,BLITRLRCDSTSL_BLI_VALUET; 
SPEC = SLI val srec OSTSB_VS yr LAGS? 
WHILE .VALSPECCOSTSB vs VFCAGS) EQL DSTSK_VFLAGS Ivs dO 
VALSPEC = VALSPECCDSTSA_VS_TVS_BASE] * .VALSPECCOSTSL_VS_TVS_OFF SET); 
' Check to see if the address interpretation is complete or not. 
' If it is incomplete (indicated by -1) then we have some more 
work to do. 
IF .ADDRPTRCO) LSS 0 
THEN 


BEGIN 

IF_ .VALSPECCDSTSV_VS_INDIRECTJ 
DBGSPRINTC(UPLIT BYTEC(ZASCIC '.('), 0); 

IF_ .VALSPECCDST$V_VS_DISP] 

THEN 


DBGSPRINT(UPLIT BYTE(ZASCIC *.'), 0); 
REG_NUM = .VALSPECCOST$V_VS_REGNUM); 
DBGSTRANSALATE _REG(.REG_ RUM); 
IF gVALSPECCOSTSL_vS_VACUE J LSS 0 
DBGSPRINTCUPLIT BYTEC(ZASCIC "!SL"), .VALSPECCOSTSL_VS_VALUEJ); 
IF_ .VALSPECCDSTSL_VS_VALUE) GTR 0 
DBGSPRINTCUPLIT BYTEC(ZASCIC ‘+!UL"), .VALSPECCDOSTSL_VS_VALUE)); 


SE 

DBGSPRINTCUPLIT BYTEC(ZASCIC "!XL"), .VALSPECCDSTSL_VS_VALUE)); 
VALSPECCOSTSV_VS_INDIRECT) 
DBGSPRINT(UPLIT BYTECZASCIC °)"), 0); 


If . 
THEN 
END 


ELSE 
DBGSPRINT(UPLIT BYTEC(ZASCIC "!XL"), .ADDRPTR(O)); 
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Ci 
4 ghopartact NEQ 0 
DBGSPRINT(UPLIT BYTE(ZASCIC * !UL bits’), .ADDRPTRI1)); 
SO SSPRENT CUPL ET BYTE(ZASCIC ° from beginning of record’), 0); 


499 


This is Bliss Field data. 
CDBG$K_ADDRKIND_BLIFLD): 
BEGIN 


LOCAL 
FLDCOMP_PTR: REF VECTOR; 


DOSsPRINt CUPL iT BYTECZASCIC ‘bliss field:'), 0); 
DSTP SYMIDCRSTSL_DSTPTRI; 


3 ; 0 END; 

3 1 

; 64 § This a register. 

: 466 : 5 {DBGSK_ADDRKIND_REG): 

$ 2 $ BEGIN 

3; 2468 DBGSPRINT(UPLIT BYTE (ZASC cit ‘address: '), 0); 

3; 2469 588 DBGSTRANSALATE_REG(.ADDRPTR(O)); 

3; 2470 é 9 END; 

3 2471 90 

; ot 23) 

3 rt 3 This is an absolute address. 

; 479 $34 {oBGsK ADDRKIND, ABS): 

; <i 238 DBGSPRINT(UPLIT BYTE(ZASCIC ‘address: !XL"), .ADDRPTRLO)); 

5 2479 598 

3; 2480 599 ! The second longword may ay contain the end address of the 
3 2481 600 ! lexcial entity. But, for global routine, start address is 
3: 248 601 i the same as end address in RST entry. And also for Entry point, 
; ret ret or Label, there is no end address. 

: met eRe 4 if (-ADDRPTRE1 NEQ 0) AND (.ADDRPTRLO] NEQ .ADDRPTR(1)) 

: rh] 60: DEGSPRINT(UPLIT BYTE(ZASCIC ', size: te bytes"), 

; 2488 60 .ADDRPTRL1) = .ADDRPTRCO) + 

3 2489 608 END; 

3: 2490 

: 2491 

3 res This address is a bit offsets. 

+ 2494 CDBGSK ADDRKIND_BITOFF): 

3: 2495 BEGIN 

3 2496 DBGSPRINT(UPLIT BYTE 

: 2497 (ZA ‘address: offset 'UL bytes’), .ADDRPTR(O)); 
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PLDCORP opi 
DSTPTRCDSTSB_BLIFLD_NAME) + -DSTPTREDSTSB_BLIFLD_NAME] +1; 
DEGSPRINT(UPLaT BYTE(ZASCTC ° ); 


be (3:77:52 UbkauG. SacSoacs made 059; 


INCR FLDCOMP_NO FROM 1 TO .DSTPTRCDSTSL_BLIFLD_ COMPS) DO 
IF (.FLDCOMP_NO EQL .DSTPTRCOSTSL_BLIFLD_COMPS]) 


Ft et mh ood el 


This address is too complex to calculate. 
{oBGsk ADDRKIND_ COMPLEX]: 
7 Pleat BYTE(ZASCIC ‘address: complex 


WN —OCONOULS WI —OOM 


Invalid address representation. 
{DBGS$K_ADDRKIND_INVALID]: 
+ Sanaa BYTE(ZASCIC ‘address: 


RR ee 


PUPPIES 
OONOVUVLS WN O CONOUS WN O0OO~ 


aE et 8 es any 
WO 0Onou 


DBGSNEWLINE(); 
RETURN 0; 
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DBGSPRINT(UPLIT BYTE(ZASCIC *!SLJ"), .FLDCOMP_PTRE.FLDCOMP_NO = 1)) 
5 DBGSPRINT(UPLIT BYTECZASCIC "!SL,"), .FLDCOMP_PTRE.FLDCOMP_NO = 1)); 


address computation’), 0); 


address’), 0); 


DBGSPLIT,NOWRT, SHR, PIC,0 


<13>\constant: !SL\ 
<9>\address: \ 
<20>\descriptor address: \ 


dress: \ 
<12>\address: 'XL\ 
<17>\, size: !UL bytes\ 


<25>\address: offset !UL bytes\ 


<9>\ 'UL bits\ 


<25>\ from beginning of record\ 


O-08351 


DBGSYMBOL .B 


s-32 v4. 


tpéeuG. src 


AX-1 


iSosto-1964 09:39:58 


DBGSYMBOL 
v0e=000 


complex address computation\ 
invalid address\ 


\ 


J\ 
\Saddress: 


<24>\address: 


C 

C 

C 

C 

C 
ASCII 


New Vv@Oae<-oO 
MIT TUN OF- OO 
CSoooooooo 
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sa ou bc 6S Oo oe 8 OB 
8s 39 5 


<n 
ne 
om 
ur 
o 
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ei 
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€ 70 6D 6f 
0 6D 6F 


; 


PIC,0 


SHR, 


-PSECT DBGSCODE,NOWRT, 
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05 AE 60 00 00078 MOVL (BL ITRER) , BLIVALSPEC#1 : 2531 
3 04 AE c 7 MOVAB BLIVALSPEC, VAL SPEC + 25 ‘ 
FB OF 64 68: cHPB {VALSPEC) #25 : 2533. 
50 54 01 AG cf ADDL3 1(VALSPEC), VALSPEC, RO + 2534 
4 5 AO : MOVAB 5(RO), VALSPEC : 
EF 1 F BRB 6$ : 
51 1 €9 1 7$ BLBC = R1, 138 + 256 
08 64 02 Ei 00094 BBC #2, (VALSPEC), 8$ + 256 
E b4 98 CLRL Os = (§P) + 2547 
2> AS 9F OO09A PUSHAB P.AFR : 
46 ¢ Fe 9D CALLS ae. DBGSPRINT : 
2D 64 E AO 8$: BBC #3. (VALSPEC), 10$ + 2549. 
‘ D4 OOOA4 CLRL =s_ = ¢ §P) + 2555 
30 AS 9F O00A6 PUSHAB P.AFS : | 
66 02 FB 000A9 CALLS #2, DBGSPRINT : | 
50 64 04 04 EF OOOAC EXT2V #4, #4, (VALSPEC), REG_NUM + 2556, 
0 DD 0081 PUSHL R : 2557, 
FRAE CF 01 FB 000B3 CALLS #1, DBGSTRANSALATE_REG : 
52 01 Ad DO 00088 MOVL  1(VALSPEC), R2 + 2558 
Q 18 0008C BGEO }43Os«O9'$ ; 
DD 000 PUSHL  R2 t 2560. 
32. AS OF 000C PUSHAB P.AFT : | 
66 Q FB 000C CALLS #2, DBGSPRINT : | 
D5 b00¢6 9$: TSTL =o : 2562. 
10 15 000¢ LEG ~=s«128 : 
52 DD OO0CA PUSHL R t 2564 | 
36 «AS «OOF «000CC PUS P.AFU ; 
06 11 O00CF BRB 1i$ ; | 
01 A& DD 90001 10$:  PUSHL ‘1 VALSPEC) + 2569) 
38 46AS) «OOF 000D4 PUSHAB P.AFV : | 
66 02 re 0007 11$: CALLS a3. DBGSPRINT : 
1F 64 02 €1 000DA 12$: BBC #2. (VALSPEC), 15$ : 3571 
re D4 OOODE CLRL —s_ = ( §P) : 2573. 
3F 6 AS. sOOF «OO0E PUSHAB P.AFW ; 
SA 11 OO0E RB 19$ : 
0c AE DD O00ES 13$ PUSHL ADDRPTR : 2578. 
41 AS OOF OOE8 PUSHAB P.AFX : | 
52 11 OO0EB BRB 198 ; 
7 p4 QOED 146$: CLRL  =(SP) : 2587 | 
45 AS 9F OOOEF PUSHAB P.AFY ; | 
66 02 FB OO0F CALLS #2, DBGSPRINT : | 
OC AE DD O00F PUSHL  ADORP : 2588. 
F869 «CF 91 Fe OF CALLS #1, DBGSTRANSALATE_REG F 
0097 FD 15$: BRW 3 2495 
0c AE DD 00100 16$: PUSHL ADDRPTR : 2596 
4F AS) 9F 001 PUSHAB F2 ; | 
66 02 FB 001 CALLS a DBGSPRINT : 
50 10 AE p HOVL A BRPTRe4, RO > 2604 
50 0c ar p 10F CMPL } DRPTR, RO : 
E 13 BEQL ; 
50 | 11 SUBL2 ADDRPTR, RO > 2607 
1 Aad SF 00119 PUSHAB 1(RO) F 
C AS OF 0011C PUS + 2606 
73 11 OO11F BRB 27$ : | 
OC AE DD 00121 17$:  PUSHL ADDRPTR > 2616 


<o 


[ 
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6E AS 9F 00124 PUSHAB P.AGB : 2615 
66 03 FB 00107 CALLS #2, DBGSPRINT : 
10 AE p 120A TSTL ADBRPTR+G : 2617. 
OA 10D BEQL $ : 
19 AE D OO12F PUSHL ADDRPTR+4 + 2619 
008 F 001 PUSHAB P,AGC : 
66 2 FB 001 CALLS #2, DBGSPRINT : 
4 00139 188: CLRL -(§P) 3 2621 
0092 F 00138 PUSHAB P.AGD : 
11 0013F 19$: BRB 27$ : 
4 00141 208:  CLRL  <-(SP) : 2632. 
OOAC f F 0014 PUSHAB P.AGE : 
66 FB 14 CALLS #3 DaGSPRINT : | 
32 Oc A p O14A MOVL  12¢R3), DSTPTR : 3633 
5 07 A2 9A 0014 MOVZBL 7(DSTPTR), RO + 2635. 
54 08 A042 9E 0015 MOVAB  8(RO)CDSTPTRJ, FLDCOMP_PTR : 
76 4 001 CLRL = =( SP) + 2636 
0089 F 00159 PUSHAB P.AGF : 
66 é FB 0015D CALLS #2, DBGSPRINT : 
D4 9160 CLRL  FLBCOMP_NO : 2641 
18 11 0016 BRB 4$ : 
03 A2 53 D1 00164 218:  CMPL =‘ FLDCOMP_NO, 3(DSTPTR) > 2639 
OA 12 00168 BNE : 
FC A443 DD OO16A PUSHL -4(FLDCOMP_PTR) CFLDCOMP_NO) + 2641 
oopc =Ch OOF O16 PUSHAB P.AGG : | 
08 11 01 BRB $ ; 
FC AG43 DD 00174 22$:  PUSHL -4(FLDCOMP_PTR)CFLDCOMP_NO] + 2643 
00ci cS 9F 00178 PUSHAB P.AGH : 
66 02 Fe O17C 23$: CALLS #2, DBGSPRINT ; 
£0 5 03 Ad F3 OO17F 24$:  AOBLEQ 3(OSTPTR), FLDCOMP_NO, 218 : 2637 
11 11 00184 BRB 28$ + 2695 
7 D4 00186 25$: CLRL  <=(SP) : 2653 
00c6 «6¢5) (OF 001 PUSHAB P.AGI ; 
06 11 0018¢ BRB ; 
: D4 O18 26$: CLRL <(SP) > 2661 
00cB «CS «(OOF 001 PUSHAB P.AGJ : 
66 62 FB 00194 27$: CALLS #2, DBGSPRINT ; 
000000006 00 00 FB 00197 28%: CALLS #0, DBGSNEWLINE + 2666 
04 0019€ RET + 2669 | 


3; Routine Size: 415 bytes, Routine Base: DBGSCODE + 1157 
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; ¢ $70 ! ROUTINE SHOW_SYMBOL_TYPE(SYMID): NOVALUE = 

; 4 of¢ 1 ! FUNCTION 

; 5 675 1! This routine takes a SYMID and shows the type information associated 

: $ ore : } with the input SYMID. This is a recursive routine. 

; 8 978 1 ! INPUTS 

: :] 677 1! SYMID = The SYMID for tne symbol. 

: 2560 of8 1! 

; 20) 679 1 ! OUTPUTS 

; 6¢ 680 1! None. 

3; 256 681 1! 

3 2564 6 ¢ 1 

3; 2565 68 BEGIN 

$ 208 684 

3; 256 685 MAP 

; 208 O39 SYMID: REF RSTSENTRY; ! Pointer to input symbol's RST entry 

; 2570 688 NABLE 

3 3) vet SHOW_SYMBOL_TYPE_HANDLER; ! Set up error handler for this routine 
3 $278 691 LOCAL 

3 2574 69 AREA_ADDR, ! Byte address of the Area associated 

3; 2575 69 ’ with the given offset 

; 378 694 AREA_LEN, ! Byte Length of the Area associated 

3 257 695 : with the given offset 

3 378 4 BITSIZE, The size in A. of an item of the 

; ' ven type 

3 380 298 CELLTYPE: REF RSTSENTRY, } The TyBe ID of the individual array 

3 ! elemen ata e 

3 o8¢ 2700 DSCADOR: REF BLOCKC,BYTE), ' VAX Standard pescripter” 

3: 258 2701 DSTPTR: REF DSTSRECORD, ! Pointer to symbol's DST record 

3: 2584 70 ELTVECPTR: REF VECTORC,LONG), ' Pointer to a vector of SYMIDs for the 
3; 2585 70 ' enumeration type elements, or 

3; 2586 704 ' record components, or 

3; 2587 705 } variant gomponents. or 

3; 2588 70 : a subscript vector contains 

3 2589 70 : subscript Type ID, one longword 
3; 2590 708 } , Per dimension 

3: 2591 709 FCODE, ! Symbol's FCODE field 

3 236 710 KIND !' Symbol’s KIND field 

; 395 ay HIGHBTR Upper bound value of the subrange 

3 ‘ ' Language € 

3 44 18 LANGUAGE: REF VECTORC BYTE), } Pointer to counted ASCII string 

; 714 LOW ' Lower bound value of the subrange 

: 259 715 NAME: REF VECTORC BYTE), i Counted ASCII String 

3; 2598 rg LTS, ! The number of enumeration type elements 
3; 2599 71 } or recore components, 

3 600 4 | } or var ent components, 

3 , or arra mensions 

3 O08 720 PARENT_TYPE: REF RSTSENTRY, ' The Type 1D ot the set's parent type 
3 260 721 PICT_DESC : BLOCK (8,BYTE), ! VAX Standard Descriptor 

3 2604 7 § PICT_LENGTH, ! The length of the icture representation 
3; 2605 ? PICT-LENPTR: REF VECTORE gyred. ' Pointer to the picture representation 
: 606 724 PICTPTR: REF VECTORL BYTE), i Pointer to the picture representation 
3 260 725 PICTVAL, ! Pointer to the language-specific 

3; 2608 726 : encoding 


3 
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609 727 POOLID, ! Index . fe Temporary inqnery Pool Stack 
610 7 8 PSCALE, ' Scale qeter and digit count for the 
611 7 ' 5 cture item 
ol¢ 730 REFTYPID: REF RSTSENTRY, ! Type : rer target type 
61 73) TYPECODE | Type 
61 , ; TYPEID: REF RSTSENTRY; symbols. TYPE RST entry 
616 734 
61 735 POOLID = DBGSPUSH_TEMPMEM(); 
618 7 6 DBCS STA SYNTYPE (. SYMID, FCODE, TYPEID); 
619 , gepeore F M'RSTSK/TYPE_MINIMUM TO RSTSK_TYPE_MAXIMUM OF 
65 530 
6 é 740 CRSTSK_TYPE_ARRAY]: 
6 741 BEGIN 
624 148 DBGSSTA_TYP_ARRAY(.TYPEID, DSCADDR, CELLTYPE, NELTS, ELTVECPTR, BITSIZE); 
625 74 DBGSTRANSALATE_DESCR(.DSCADDR); 
626 744 ITEM. SIZE (BITSIZE); 
627 745 DBGSREWLINE(); 
628 746 DBGSPRINT_CONTROL (DBG$K_PRTSET_RLMARGIN, +4): 
629 747 DBGSPRINTTUPLIT BYTE(ZASCIC ‘cell type: '), 0): 
630 748 DBG$_PRINT_FLAG = TRUE; 
631 749 SHOW SYMBOC_TYPE(.CELLTYP 
632 750 DBGSPRINT T CONTROL (OBGSK. PRISET_RLMARGIN, -4); | 
63 751 ND; 
634 138 
635 75 CRST$K_TYPE_ATOMIC): 
636 754 IN 
6 755 peesee int (uri iT BYTE(ZASCIC ‘atomic type *>, Od3 

756 STA_TYP IC(.TYPEID, TYPECODE, BITSIZE): 

757 ESTEE ErIPPeODE- Tire 
64 758 M_SIZE(BiiSl2©); 

759 
64 760 
6 761 CRSTSK_TYPE_DESCR): 
644 6¢ BEGIN 
645 76 DBG$STA_TYP_DESCR(. TYPE ID DSCADDR); 
646 764 DBGSTRANSALATE_DESCR(.DSCADDR) ; 
64 765 END; 
648 766 
649 767 CRST$K_TYPE_ENUMJ: 
650 768 GIN 
651 769 DBGSPRINT(UPLIT BYTEC(ZASCIC ‘enumeration type’ 
65 770 STA_TYP_ENUM(.TYPEID, NELTS ELTVECPTR reg Sttes: 

= BBGSGET DST _NAME(.TYPEIDCRSTSL_DSTPF 


N 
DBGSPRINT(UPLIT BYTEC(ZASCIC ° (!AC,°), NAME) 
DBGSPRINT(UPLIT BYTE(ZASCIC * (anonymous,'), 0); 


pOGsPR int Curt iT BYTEC(ZASCIC * !UL elements)"), .NELTS); 
- Ne SIZE(BITSIZE); 
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CRST$K_TYPE_PICT): 
665 BEGIN 


3 
ibese 1984 AX-11 Bliss-32 V4.0-74 Page 91 DBI 

=0 12-Sep-1984 96: #3: 33 DEBUG. SRC IDBGSYMB MBOL .B32;1 9° 16) ob. 
3; 26 784 DBGSPRINT(UPLIT BYTE(ZASCIC Bisture trPe ° : 
3 266 785 DBG$STA_TYP Bict(.TYPEID, LANGCODE, PI Str pictvaL. PSCALE); 
> 2668 ? LANGUAGE = DBGSLANGUAGE ( .LANGCODE) ; 
> 2669 7 DBGSPRINT (UPL IT BYTE (RASCIC 'AC'S, .LANGUAGE); 
> 2670 788 -PICTPTRLO) NEQ 
: 2671 789 N 
; 67¢ 790 4 BEGIN 
> 267 791 4 INIT_DESCRIPTOR(PICT_DESC); 
> 2674 798 4 PICT“LENPTR = .PICTPTR - 1; 
; 2675 793 4 PICT“LENGTH = .PICT LENPTREO; 
: 2676 794 4 INCR™PICT_INDEX FROM 1 TO (.PICT_LENGTH/2) DO 
: 2677 795 BEGIN 
: 2678 79 LOCAL 
: 2679 79 DUPL STATUS, 
> 2680 798 § CAT 
> 2681 799 5 DuPC_ best : BLOCK C8, BYTE); 
; 682 800 3 
; 268 801 INIT -DESCRIPTOR (DUPL DESC); 
+ 2684 802 5 DUPL“STATUS = STRSDUPL_CHAR(DUPL_DESC 
> 2685 803 § MREF(.PICT TPTRC CC“BUCT INDEX ° 1)2) + 1)) 
3 2686 804 § ZREF(.PICTPTRE((.PICT-INDEX = 1)#2) + 03)5; | 
> 2687 805 3 CAT_STATUS = STRSCONCAT(PICT DESC; PICT_DESC, DUPL_DESC); 
> 2688 806 DISCTARD_DESCRIPTOR(DUPL_DESCY; 
: 2689 807 4 END; 
3 2690 808 4 
+ 2691 809 4 DBGSPRINT(UPLIT BYTE(ZASCIC ' pic: !AS*), PICT_DESC); 
> 269 810 4 DISCARD_DESCRIPTOR(PICT_DESC); 
: 269 11 END; 
> 2694 Big 
: 2695 81 END; 
> 2696 e814 
: 2697 815 CRST$K_TYPE_TPTRI: 
: 2698 B16 BE 
3; 2699 817 DBGSPRINT(UPLIT BYTE(ZASCIC ‘typed pointer type’), 0); 
; 3700 818 DBGSNEWLIN 
: 2701 819 DBG CSSTAS TYP_TYPEDPTR(.TYPEID REFTYPID); 
> 270 2820 BGSPRIAT_CONTROL (DBG$K_PRTSET_RLMARGIN, +4); 
> 270 821 PBCSPRI NITOPLIT BYTE(ZASCIC "target type: '). 0); 
> 2704 : DBCS PRINT FLAG = TRUE; 
3: 2705 8 SHOW SYMBOL TYPE (REF TY 
: 706 824 DBGSPRINT _CONTROL (DBGSK PORTSET _RLMARGIN, =4); 
: 270 8 5 END; 
; 2708 § 
3 1% ; 4 CRST$K TYPE RECORD]: 
3 at , DBGSPRINT(UPLIT BYTE(ZASCIC ‘record type’), 0); 
: 271 1 
3 2714 § ! If the flag indicates that no value is specified, i. + the 
3: 2715 i object being described is a type. Check to see if t Ss type 
: rig : has a name. 
; 718 6 DSTPTIR = .TYPEIDCRSTS$L_DSTPTRI 
: 719 f IF -DSTPTRCDST$B_VFLAGS) EQL ds tsk _VFLAGS_NOVAL 
: zi 9 4 BEGIN 
+ 2722 40 4 NAME = DBGSGET_DST_NAME(.TYPEIDCRSTSL_DSTPTRI); 


> 3 
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; 41 4 IF .NAMECO) NEQ 0 

: 27 4¢ 4 THEN 

; 43 4 DBGSPRINT(UPLIT BYTE(ZASCIC * (!AC,"), NAME) 

3 $2 c DBGSPRINT(UPLIT BYTE(ZASCIC * (anonymous,'), 0); 
; 23 4 END 

: rt 4 

; 4 ELSE 

; 890 DBGSPRINT(UPLIT BYTE(ZASCIC * (anonymous,'), 0); 

; B5¢ DBG$STA_TYP pRECORD( TYPELD NELTS, ELTVECPTR, BITSIZE); 

; 5 DBGSPRIAT(UPLIT BYTE(ZASCIC ' 'UL componentss'), .NELTS); 
; 894 ITEM_SIZE(B ITsdze) se 

; 55 INCR7] FROM 0 TO .NELTS = 1 DO 

; 896 4 BEGIN 

; 857 4 DBG$STA_SYM KIND( ELTVECPTRE 1), Kl ND) i 

; 858 4 IF .KINB EQL RSTSK_VARIANT THEN GET_ VARIANT (.ELTVECPTRE.12); 
; 859 END; 

: 860 

3 56) END; 

3 2744 6¢ 

+ 2745 86 CRSTSK_TYPE_SET): 

> 2746 864 

: 2747 865 DBGSPRINT(UPLIT BYTE(ZASCIC ‘set ype"? 0); 

> 2748 866 BGSSTA_TYP_SET(.TYPEID, PARENT_TYPE, BITSIZE); 

3s 2749 aor ITE E(BYTSIZE); 

; ¢730 68 DBGSREWL INE () 

+ 2751 869 DBGSPRINT_CONTROL (DBGSK PRTSET_RLMARGIN, +4); 

3 Peg 870 DBGSPRINT wet BYTE(ZASCIC ‘parert type: *), 0); 

: 275 871 DBGS_ PRINTF LAG = TRUE; | 

> 2754 b7¢ SHOW SYMBOL_TYPE(.PARENT_ TYPE); 

> 2755 87 SBOSPRINT. _ CONTROL ( (DBGSR. PRISET-RLMARGIN, -4); 

: 2756 874 END; 

: 2757 879 

: 2758 id: CRST$K_TYPE_SUBRNG): 

> 2759 87 BEGIN 

: 2760 878 DBGSPRINT(UPLIT BYTE(ZASCIC ‘subrange type’) 

> 2761 79 BGS$STA_TYP_SUBRNG(.TYPEID, PARENT TYPE Sombre.” * WIGHPTR, BITSIZE); 
: 768 9 ITEM SIZE(BITSIZE); 

: 276 SPRINT(UPLIT BYTE(ZASCIC ', range:'), 

3 2764 8 é DBGSPRINT(UPLIT BYTE(ZASCIC * !SL, ), att oe 

+ 2765 8 DBGSPRINT(UPLIT BYTE(ZASCIC °.'SL'), ..HIGHPTR): 

; 766 : 4 SNEWLINE(); 

3 276 5 DBGSPRINT CONTROL (DBGSK PRTSET_RLMARGIN, 4); 73 
+ 2768 6 DBGSPRINTTUPLIT BYTE(ZASCIC ‘parent type: '). 0); 73 
+ 2769 DBG$_PRINT FLAG = TRUE; 

: 2770 8 SHOW" SYMBOL _TYPE(.PARENT TYPE); 

3 e771 DBGSPRINT_CONTROL (DBGSK_PRTSET_RLMARGIN, -4); 

; 17 0 END; 

: 277 91 

: ae 3 CRSTSK eine _COBHACK): 

: ore hy BaggPRINT Lt BYTE(ZASCIC ' cobol formal parameter type’), 0); 
; 2778 38 

+ 2779 9 


CRSTSK_TYPE_BLIDATA): 
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3; 2780 9 BEGIN 

: 2781 839 BE CePRINTCUPLIT BYTE (RASCIC "bliss data item type’), 0); 
> 2? 00 DSTPTR = .SYMIDCRSTSL_DSTPTRI: 

; f ? 3 GET BLISS_SPECIAL_CASES(.DSTPTR); 

: 3785 9 : 

: 27 6 904 CRSTSK_TYPE_BLIFLD): 

> 278 905 BEGIN 

; 788 906 DBGSPRINT (UPLIT BYTE(ZASCIC "bliss field type’), 0); 

: 2790 9 : . 

: 79 3 } CRSTSK TYPE FILE]: 

: 138 911 DBGSPRINT (UPLIT BYTE(ZASCIC ‘file data type "), 0) 

> 2794 a1¢ DB TA FILE(.TYPEID, LANGCODE, REFTYPIDO); 

: 2795 91 RNGUAGE bas LANGUAGE ( .LANGCODE); 

; 196 914 DBGSPRINTCUPLIT BYTE(ZASCIC ' 'AC'S, .LANGUAGE); 

; ate 316 -REFTYPID NEQ 0 

: 2799 91 GIN 

; 2800 918 4 DBGSNEWLINE(); 

; 2801 919 4 DBGSPRINT_CONTROL(DBGSK_PRTSET_RLMARGIN, +4); 

> 280 920 4 DBGSPRINTTUPLIT BYTE(ZASCIC ‘target type: '). 0); 

+ 280 921 4 DBGS_PRINT_FLAG = TRUE; 

; 2804 9 é 4 SHOW SYMBOL _TYPE(.REFTYPID); 

; 2805 923 4 DBGSPRINT CONTRO L(DBGSK_PRTSET_RLMARGIN, -4); 

3; 2806 924 END; 

: $808 $56 END 

: 2809 9 $ . 

; 5\9 ; $ CRST$K_TYPE_PTRI: 

: Ble 33 DBGSPRINT(UPLIT BYTE(ZASCIC ‘untyped pointer type’), 0); 
> 2814 9 ; 

; 2814 935 CRSTSK_TYPE_RFA: 

+ 2816 934 BEGIN 

3 ait 4 sree nant CUPL ET BYTE(ZASCIC ‘record file address’), 0); 
; BS 9 $ : 

; 28 9 4 8 CRST$K_TYPE_SELF_REL_LAB): 

; $ g 940 DBGSPRINT(UPLIT BYTE(ZASCIC ‘self relative Label"), 0); 
; 8 941 END; 

$ 4 94 

: 8 5 945 CRSTSK_TYPE_AREA): 

: 28 $ 945 DBG PRINT(UPLIT BYTE(ZASCIC ‘area type."), 0); 

: 28 8 94 DBGSSTA_TYP_A AREA. TYPED AREA. LEN); 

; 28 4 DBGSPRIRT CUPLIT BYTE(ZASCIC ° Size: 'UL bytes"), .AREA_LEN); 
: 2831 9% 

; : ; 950 CRSTSK TYPE _OFFSETI: 

; B34 98 DBGSSTA. TYP, OFFSET COTIPEID, AREA ADDR? AREA‘LENS 

: He 954 PBCSPRIRT UPC IT BYTE(ZASCIC ° byfe address:~'XL,"), .AREA_ADDR); 
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Seeer Rees UPL EY BYTECZASCIC ' size: !UL bytes’), .AREA_LEN); 


2 V4.0-74 
SYMBOL .832;1 


CINRANGE, OUTRANGE): 
PRINT(UPLIT BYTE(ZASCIC ‘invalid type’), 0); 


TES; 
IF .DBG$_PRINT_FLAG 
THEN 
BEGIN 
DBGSNEWLINE(); 
DBG$_PRINT_FLAG = FALSE; 
END; 
Release the TYPEID RST entry for this SYMID. 


DBGSRST_TEMP_RELEASE(); 
DRGSPOP~TEMPMEM(.POOLID); 
RETURN 0; 


END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
2 A 65 7A 69 73 20 C 08 OO99A P.AGK: .ASCII < >\, size: \ 
4 69 6 $8 4C¢ 1 8 QO9A3 P.AGL: .ASCII <8>\!'UL bits\ 

§ 4 “ 0 f $3 1 9 9AC P.AGM: .ASCII <9>\!UL bytes\ 

4 69 62 4c 5 1 9 4 3, P.AGN: .ASCII <9>\ 'UL Bits\ 

70 79 74 6c 6C § 6 B 9CO P.AGO: .ASCII <11>\cell type: \ 

74 0 63 § 98 gf 4 1 C 14 P.AGP: .ASCII <12>\atomic type,\ 

$ A 6 A 3 C ; 909 P.AGQ: .ASCII < >\, size: \ 

4 8 6 8 4C¢ 1 9E2 P.AGR: .ASCII <8>\!'UL bits\ 

g 74 #79 6 f 1 9 ore P.AGS: .ASCII] <9>\!UL eryees 

4 69 $¢ 20 4C¢ ; 1 9 9F5 P.AGT: .ASCII <9>\ ‘UL bits\ 

74 «61 65 60 75 6€ 8 44 P.AGU: .ASCII <16>\enumeration type\ 

2c 43 41 21 6 AN P.AGV: .ASCII <6>\ CIAC,\ 

6 79 of F 6€ C Al? P. AGW: atts) “122A (anonymous, \ 
6 C 6 0 re A264 P.AGX: .ASCII <14>\ ‘UL elements) \ 

§ 65 A : A353 P.AGY: .ASCII < >\5 size: \ 

4 4 6 8 4C A f P.AGZ: .ASCII] <8>\!'UL bits\ 

$ 74 «79 4 1 ASS P.AHA: atta}, <9>\'UL b fess 

4 69 62 ac $$ (3 9 QOAGE PLAHB: ASCII <9>\ ‘UL bits\ 

20 6 7% «66 9 0 A23 P.AHC: .ASCII <13>\p cture type.\ 

43 41 1 4 P.AHD: .ASCII] <4>\ 'AC\ 

41 21 8 3A 6 $9 A6C P.AHE: .ASCII <9>\ pte: 'AS\ 

6F 70 64 4 3 } . P.AHF: .ASCII <18>\typed pointer type\ 
Re RB BMi cme: casey gpverae eee 

: “oan record type 
$e ig 41 $; 33 58 AAS P.AHI: atta <6>\ CIAC,N 
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1 C AAA P.AHJ: . ASCII <12>\ (anonymous, \ : 
1 AB? P.AHK: . atti <12>\ (anonymous, \ ; 
5 ADs P.AHL: .ASCII <16>\ !UL components)\ ; 
73 f ADS P.AHM: ASCH <8>\, size: \ : 
4C¢ ADE P.AHN: .ASCII < OM UL bits\ : 
$f 1 AE? P.AHO: ASCII <9>\iUL oytesh 3 
; 1 9 AF1 P.AHP: .ASCII <9>\ 'UL Bits\ : 
; 5 AFB P.AHQ: .ASCII <8>\set type\ 3 
7 ‘ BOG P.AHR: .ASCII < >\+ size: \ : 
4C¢ 8 P.AHS: .ASCII] <8>\!UL bits\ $ 
4 1 B38 P.AHT: att3h < >\ SUL b fees : 
; 1 B20 P.AHU: .ASCI <7) TUL 4 ts\ : 
1 i) BZA P.AHV: ASCII er \eubron type: \ : 

§ > = B38 P.AHW: .ASCII ac2 \oupr ange type\ 3 
g C B46 P.AHX: .ASCII \s size: \ ; 

4¢ 1 BSF P.AHY: .ASCII : >\ fut bits\ : 
$f 5 21 538 P.AHZ: .ASCII <9>\!UL bytes\ 3 
; 1 0 09 00862 P.AIA: .ASCII <9>\ 'UL Bits\ : 
0 2 ; oboe P.AIB: .ASCII > range \ : 

5 1 0 OB75 P.AIC: .ASCII < 'SL. 3 
; 1 4 o78 P.AID: .ASCII <4>\.!SL\ 3 
61 D : P.AIE: .ASCII <13><parent type: 3 

6F $3 2 f BSE P.AIF: .ASCII <28>\ cobol yee parameter type\ : 
61 61 7 0B90 3 
4 gf § i pene P.AIG: .ASCII <20>\bliss data item type\ : 
69 6C e 19 A P.AIH: .ASCII <16>\bliss field type\ : 
6C 69 66 f 08D! P.All: ASCII <15>\file data type,\ : 
41 21 30 4 OBE] P.AlJ: .ASCII <4>\ !AC\ : 
72 61 74 OD BE6 P.AIK: .ASCI] <13>\target type: \ 3 
a of 75 \ per P.AIL: .ASCII <20>\untyped pointer type\ : 
é3 $2 i$ 0¢09 P.AIM: .ASCII <19>\record file address\ ; 
6 re 75° «13 C1iD P.AIN: .ASCII <19>\self relative label\ : 
6 61 6C c2c ; 
65 *3 1 Gh cf P.AIO: .ASCII <10>\area type, : 
69 7 ° 9 cif P.AIP: . ASCII <16>\ size: ‘UL » es : 
$6 6 fF p C40 P.AIQ: .ASCII <1g>\of feet type.\ : 
i ; 9 Ft P.AIR: .ASCII <19>\ byte edivenet 'XL.N : 
rt ; ‘ CGE P.AIS: .ASCII] <16>\ size: 'UL bytes\ 
76 6€ 6 §2 C7F P.AIT: ASCII <12>\invalid type\ : 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


OFFC 00000 SHOW. SYMBOL IYPE: 
: ie a ORD Save R2 /RS.RG LR RS .R6,R7,RB,RO,RI0.R11 ; 2670 
aR $8006 60 9E $6009 MOVAB DBGSPRINT Tehaes, * R10 ; 


53 
16- e 4 AX-11 Bliss-32 v4.0-74 Pa 96 D 
1-33-1986 99:19:59. Yoeeus. weieaatint tial “Sted V 
9 6 1 MOVAB DBGSNEWL NE : ; 
‘ 090090 a6 O09 7 MOVAB BGS is” ; : 
EF 1 MOVAB PAT, Ny 3 3 
rm ee: HOVAL 349" ($P) SP ; 
000000006 $0 69 FB CALL #9. "RBGSPUSH. TEMPMEM : 3683 ; 
8 AE oF PUSHAB TYBEID. + 2736 : 
AE OF B PUSHAB Io DE : ; 
04 53 BS c ot synod. R2 3 ; 
000000006 a 3 FB 0004 CALLS #3, DBGSSTA_SYMTYPE : : 
15 Oc AE CF 0004 CASEL FcOvE, wi, #21 + 2737 : 
$18 a if 5 1$: WORD Tae : ; 
2c 369 6 2$-1$,- : : 
O4Ap ra rt 06 14$-1$.- : : 
02¢ 53¢ Ost 00 1$-1$.- ; ; 
02C 518 007 23-132 3 3 
6$-1$.- : ; 
41$-1$.- ; ; 
ge-13-= 3 3 
$-1$,- : 3 
47$-1$,- : ; 
48$-1$.- ; ; 
49$-1$,- 3 : 
50$-1$,- § 3 
54$-1$,- 3 3 
59$-1$,- 3 3 
0$-1$.- ; : 
$-1$,- 3 3 
ete : 3 
$-1$.- : ; 
2$-1$ 3 3 
7 D4 CLRL = = (SP) : 2960. F 
0530 3 ee Bie ; | : 
34 AE OF PUSHAB BITSIZE : 2742 : 
OME OF PUSHAR NELTS” ; 
1 AE i PUSHAB CELLTYPE : ; 
foe pute BeBe : 7 
000000006 00 06 FB CALLS #6, DBGSSTA_TYP_ARRAY : : 
18 AE OD PUSHL DSCADDR : 2743 : 
F2A1 cr - 0 F CALLS lle nana poke : 
ieee 8) Be | : 
2 Q EF EXT2V ip! By its : : 
5 p4 CLRL ; ; 
FD1B F PUSHAB >. 32) : : 
68 é FB CALLS DBGSPRINT : : 
D4 CLRL OR : : 
+ 8 StS ¢ 
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FORMS SS FNS SSS 


“$ Ax-11 Ot gente V4.0-74 
-§ DEBUG. SRCJDBGSYMBOL.B32;1 
INCL RS 
CHL R2, #32 
BGT 4 
PUSHL R 
PUSHAB P.AGL 
BRB 
4$ TSTL YTES 
BEQL 
PUSHL BYTES 
PUSHAB P.AGM 
CALLS Ce DEGSPRINT 
5$: LBC OséiRS. 7$ 
PUSHL BIfs 
PUSHAB P.AGN 
$$ CALLS a3, DBGSPRINT 
$ CALLS #0, DBGSNEWLINE 
PUSHL 4&4 
PUSHL a2 
CALLS #2, DBGSPRINT_CONTROL 
CLAL ss = (§P) 
PUSHAB P.AGO 
CALLS #2, DBGSPRINT 
MOVL #1, DBG$_PRINT_FLAG 
PUSHL LTYPE 
BRW 
8$ CLRL —s_ =( SP) 
PUSHAB P.AGP 
CALLS #2, DBGSPRINT 
PUSHAB BITSIZE 
PUSHAB TYPECODE 
PUSHL TYPEID 
CALLS #3, DBGSSTA_TYP_ATOMIC 
PUSHL TYP 
CALLS #i BG TRANSALATE_TYPECODE 
MOVL BITSIZE, R2 
BEQL 
DIVL3 #8, R2, BYTES 
EXTZ2v. #0. #3. R2, BITS 
CLRL 3s = (§P) 
PUSHAB P.AGQ 
CALLS 2. DBGSPRINT 
CLRL oR 
TSTL 8 TS 
BEQL 
INCL oR 
CMPL Re. #32 
BGTR 9 
PUSHL R2 
PUSHAB P.AGR 
Bre 11$ 
9% STL BYTES 
BEQL 0$ 
PUSHL BYTES 
PUSHAB P.AGS 
CALLS a. DEGSPRINT 
108 BLEC Osi $ 
PUSHL BiIfs 
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— ar AYaI1 BLiss~32 V4.0-742 (16) 
eee ee ee 1b-seo-1984 93:79:53 — YoEaus. SacSdacs moar .039; | 
cae 14-Sep-1984 12: eee 
Fortean F tee puss paac ; ; 
vOe=000 Pore outs $1 B016n 128: PUSHAB TYPED. R : 2764 ; 
18 AEF 001 12s: PUSHL TYP DBGSSTA_TYP_DESC ” : 
00 me bb OT FA Push F CoS TRANSALATE DESCR 3037 
000000006 8 oA t 17 nie Ge ated | 
ec “ SF 00187 PUSHAR 3D acsPRINT 7 
F 001 ALLS @# : 
- ww £8 301 E PUsHAB RH a ; 
z¢ he it 194 MOVE” NYPEID, R2 Poa 
52 a By 00198 ait of. DBGSSTA_TYP_ENUM i 2 | 
van i Push 11. SaGSGET_ST_NAME 2772, 
conoons go RRR Ht iam 
000000006 98 g 5S i S16 (NAME) ; | 
O8 38 0018 PUSHL _NARE tome 
oF Ob dot PUSHAB P.AGV 
rom) be 11 ootee Bree wtp) 
PSURs. Fe! pd : 2778 
Ch OF ooter CALLS, #2, DBGSPRINT 
ht 63 FB OOICS 168: FUSE NELTS * 9779 
68 2¢ AE DD 001C6 PUSHAB SAGX at 
FDAS 65 re O16 gg Bitsiaes Re ; 
0100 QL S : 
«ERR Hit Fo: Bhi 2 
0 -(SP) 3 
F OO1DA ota ; 
53 83 9 4 tbr PUSHAB oa eT CSPRINT ; 
54 - Foes CP OOF pie) CALLS #2, : 
68 Sb OTE ae 
. 3 Biec Pact R5 #32 : 
3 Db OO1E Berk 498 
1F HL R2 : 
20 $f op it PUSHAB BAG? 
BOB in, BR ets 7 
"  BEQL 
1FF SHL BYTES . 
f ! PUSHAB #3. DBGSPRINT 
FDC6 F BbE03 CALLS #2. DBG 
er a Soe ed : 
03K 31 19 198: PUSH PAN 
7 : BRW 
FDO age 8h OO5IS 208 
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oc OA TYPEID 
000000006 00 CALLS ore DBGSSTA_TYP_TYPEDPTR 
2 PUSH #2 


3 
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6A Q FB O02E CALLS #2 DBGSPRINT CONTROL ; : 
FEOA f pH StAB 5 (or) _— 

0258 1 O000F W 5i$ : F 

75 b4 F9 26$ LRL ss = (SP) + 2829 ; 

FE18 f F OO2FB PUSHAB P,AHH : : 

2 F FF CALLS #2, DBGSPRINT : ; 

8 AE D MOVL TYPEID, + 2836 : 

: A p MOVL  12(R3). DSTPTR : : 

80 Ff A 4 A cHPB (DSTPTR), #128 + 2837, ; 
OC A3 DD 00311 PUSHL (R3) + 2840. ; 
000000006 00 gi F 14 CALLS #1, DBGSGET_DST_NAME : ; 
52 p 1B MOVL RO. NAME ; | : 
1 TSTB (NAME) + 2861) : 

13 00 BEQL 27$ 3 | 3 

pd 0 PUSHL N : 2843) ; 

FE24 F 6 PUSHAB P.AHI F : 

—E 11 00328 RB 3 $ 

; D4 OO32A 27$: CLRL  -(SP) > 2845. ; 

FE2B C7? 9F 0032C PUSHAB P.AHJ ; ; 

96 11 003350 BRB 29$ F : 

3 D4 00352 28$: CLRL =(SP) ; 2850) : 

FE38 C7? 9F 00 PUSHAB P.AHK 3 F 

68 02 FB 00338 298: CALLS #2, DBGSPRINT ; : 
34 AE OF 00338 PUSHAB BITSIZE + 2852 ; 

C AE OF 0033E PUSHAB ELTVECPTR : : 

4 AE 9F 00341 PUSHAB NELTS : ; 

53 DD 00344 PUSHL R ; ; 

000000006 00 04 FB 00346 CALLS #4, DBGSSTA_TYP_RECORD : : 
2¢ AE DD 00340 PUSHL NELTS : 2853 : 

FEGS C? 9F 00350 PUSHAB P.AHL : ; 

68 02 FB 00 24 CALLS #2 DaGSPRINT : : 
52 34 AE OD 7 MOVL fSIZE, R > 2854. : 
40 13 00358 BEQL : F 

53 52 8 C7? 00350 DIVL3 #8, R2, BYTES ; ; 
54 52 0 0 EF 00361 EXTZ2v #0. #3. R2, BITS ; | : 
3 D4 00366 CLRL Os = ¢§P) ; ; 

FES6 §«60C? OOF «00368 PUSHAB P.AHM : | : 

68 g FB 0 6C CALLS w. DBGSPRINT : ; 
D4 of CLRL oR ; ; 

4 D3 0371 TSTL t TS : : 

fF 1 037 BEQL $ 3 3 

bg q INCL R 3 3 

20 D CMPL = R2,,_-#32 ; 3 
14 0037A GTR 308 : : 

pp 7C PUSHL R F 3 

FESF C? 9F 0037 PUSHAB P.AHN : : 

1 1 BRB 32$ : : 

03 30$: =‘ TSTL gyles ; ; 

BEQL 1$ FY 3 

pd PUSHL BYTES ; ; 

FE6B f PUSHAB P,AHO ; : 

68 é FB CALLS ae REGSPRINT ; : 
E 318: LBC R 3 : 

4 BD 94 PUSHL BIfS ; 3 

FE72 C7 9F 00396 PUSHAB P.AHP ; : 


ossane 


54 


5 


000000006 


F6DD 


000000006 


$3 


08 
52 


20 


on 
oo 


6A 


68 


me 
C Bet? 4 

0 ae 
Bene +4 

a oth 
ne 8H 
ae 
10 4 44 

| 3 
FE8S > oF 
4 FB 

ue 
ot 
HH 

on OR 
- 
FE97 rs 
en 4H 
bi 

3 

0 
“a 
FEBS F 
(ay 
44 AE OF 


OOSGGOOOOSOSOOSOSOOSOSOSOSSOSOOOSSSOSOOOOOOO OOO OOOOOOOO 


BABB BEB BBB ANA AANA AAA MMMM MAMA MAA AAD MAAS AMADA 


if 3 
1o~se0] 
i2 -Sep-1 


gh 


TWH HHWHMMMMMO CIV OMMOoO 
OPO "POHL OOOWOVT OWS 


ooo 
~V 


at a a td A 


DBOOw"s Swe 


34 


34$: 


37$: 


Be 18:17:58 


CALLS 
MNEGL 


AX-11 Ot igse 
DEBUG. SRCJDB 


AF DBGSPRINT 
‘ 


KIND 
: LTVECPTRE 
, DEGSST A 
ND, #11 
; LTVECPTREIJ 
, GET_VARIANT 
(TS, 1 34$ 
=(SP) 
P.AHQ 
#2, DBGSPRINT 
PARENT_TYPE 
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SYMK IND 


ee RS. Bits 
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RS #32 
37$ 
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P. AHS 
39$ 
yTES 
8$ 
BYTES 
P.AHT 
ae. DBGSPRINT 
bits 
P.A 
as. MDBGSP RINT 
DBGSNEWL INE 


#8, pQBGSPRINT CONTROL 


P.A 
a MDBGSPRINT 
BIfsize 


HIGHPTR 
LOWPTR 


Pe Se Se Se Se Se Ge Se Se Se Se Se Ge Ge Se Ge Be Se Se Se Se Se Se Se Se Se Se Be Se Se Se Se Se Se Ge Se Se Se Fe Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se 


868 
869 


2870. 


2878 


2879 


<o 


Nn 3 
PRES toe ye-8Sp=18Be 93:73:88 = EGUG BkeSSecevncoeoss,1 = (‘ik #9 OR 


18 «AE bb bocee PUSH’ TYPEID 
000000006 99 o FB 004 i CALLS #5, DBGSSTA_TYP_SUBRNG ; 
34 AE 00 004 MOVL  BITSIZE, R3 : 2880 
5 $8 CF OOS Bits gh, RS. BYTES : 
54 3g 33 Q EF o6¢ EXTZV 4 Re. R3, BITS : 
E b4 46 CLAL = § : 
FEC? F 00469 PUSHAB P.AHX : 
68 é FB 460 CALLS e DBGSPRINT : 
D4 004 CLAL sR : 
4 D3 047 TSTL BITS ; 
F 47 BEQL «= 4 : 
06 0476 INCL R : 
20 D1 0047 CMPL = RB, #32 : 
Q 14 00478 BGTR 42$ : 
DD 0047D PUSHL R : 
FEDO C7 «OOF O47 PUSHAB P.AHY : 
fs 11 00483 BRB 44$ : 
5 0 tt 42$: TSTL BYTES : 
09 13 00487 BEQL 43$ : 
: DD 00489 PUSHL BYTES : 
FEDS C7? 9F 00488 PUSHAB P.AHZ : 
68 Oe FB 0048F CALLS e. DBGSPRINT : 
09 £9 0492 438: LBC —Os«éRS,-45$ : 
54 DD 0049 PUSHL BITS : 
FEE3 C7 9F 00497 PUSHAB P.AIA : 
68 02 FB 0049B 44$: CALLS #2, DBGSPRINT : 
reen OOF O9¢ab vet Suehee 5 (SP) on 
48 62 FB 004A4 CALLS #2, DBGSPRINT : 
cers | PF BP Bocaa rus aLowin — 
68 02 FB O04AE CALLS #2, DBGSPRINT ; 
elt SP Eng Fuk, aug Fe 
68 02 FB 00488 CALLS “, DBGSPRINT : | 
69 FB 00488 CALLS #0. DBGSNEWLINE > 2884. 
2 ae Dee 
6A g FB O04C CALLS A} DBGSPRINT_CONTROL 3 
ee ter! 
68 be FB 4CB 46%: CALLS ae, DBGSPRINT F 
68 D Ace MOVL #1, DBG$_PRINT_FLAG : 3887 
40 AE 0D 0040 PUSHL PARENT_TYPE ; 2888 
74 11 00404 BRB 52$ ; | 
7 4 406 47$:  CLRL (SP) 2894 
FFOF F 004D PUSHAB P.AIF F 
0080 31 0040¢ BRW 55$ : 
5 p4 4DF 48%: CLRL  =<(SP) > 2899 
FF2C § F 004E1 PUSHAB P,AIG : : 
FB AES CALLS #3 DAGSPRINT : 
“4 BD tfe PUSHL 5 tne), atabes ; 30% 
F451 6 FB OO4E CALLS Hi GET_BLISS_SPECIAL_CASES : 
2 if aFS BRB 53§ : 2737 


vOs=000 


000000006 
000000006 


FAB1 


000000006 


000900006 


68 


00 


68 


00 


FF67 


44 


FF75 


MPNTRO NIN & SM SS NIM NIN LOOM NL O--MWwMmMmro ~noO~m 


MIO NMNOOOO F OOM NOOCCOWV FS OOMUVO FOF YF POO VNNON 


A 


7 
Sep 


16-5 
14-Sep 
or rit 49% 
f GF 
11 004FB 
pr 4FD 50$: 
f oft 
8 
SF 00808 
DD 50C 
FB f 
bp 
60 
BP 008 
Pe 00899 
D5 0052C 
13 0052F 
FB 82 1 
DD 5 
DD 00536 
FB 00538 
pe 0538 
F 00530 
FB Bees 51$: 
DO 00544 
DD 00547 
FB 0054A 528: 
CE 0054F 
DD 00552 
FB 00554 
11 00557 78: 
Be 00559 54$: 
F 00558 
11 OOSSF 55$: 
D4 00561 56$: 
oF 8297 
11 268 
D4 00568 57S: 
oF ts 
11 0056D 58$: 
. 23 59$: 
7 eo) 
OF 00877 
0D 7A 
FB 70 
4 
F 7 
11 A 
Be C 60$: 
8 00891 
fB 
a 
Bb O089A 
'B 9D 


=138¢ 18:79:58 


PUSHAB 


AX-11 BL 


P.ALJ 
a2 f 7 DBGSPRINT 


Ree 
#0, DBGSNEWL INE 
i DBGSPRINT_CONTROL 
re iNacs PRINT 
nD DBCS PRINT_FLAG 
i. SHOW SYMBOL _TYPE 
=(SPY 


BGSPRINT_CONTROL 


SPRINT 


o-~- vcOoO~ 2~ 32” Fw VY 


-—-oorow 
ma ma 
2 2 


$STA_TYP_AREA 


>> =v = ma> =—DO =o Oo =O 


2 UM. PYOPM Usk PYSORYSORVVerve 


BoP PrPeviovreFBvicqovicoviioviczss 
Wt DWN NEN! et KRONE 
a 
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2906 
2911 


2912 


2913, 


; 2914 


2915 
918° 
919° 

2920 

2921, 

2922. 

2923, 

2737 | 
930 

2935 

2940 

| 

2945. 

2946 


2947 | 


2952 


2953 
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4 
DBGSYMBOL 1§- $ep-1984 02:39: AX-11 Bliss-32 V4.0-74 Page 104 
ype 000 14- ~300n 138i 95:39:38 DEBUG. SRC ID Bes yMBOL 2635; 9° 16) 
50 ag po AG U AREA_ADDR : 2954 
0B Al OOF A7 PUSHAB PLA : 
68 02 FB OOS5AA CALLS #2, DBGSPRINT : 
4C AE pp A PUSHL AREA_LEN + 2955 
EF A f 8 PUSHAB P,AIS 3 | 
68 02 Fe B3 61$: CALLS #2, DBGSPRINT : 
66 E Be 62$: LBC ee PRINT FLAG, 63$ + 2965 
69 0 FB 7) CALLS @# 686 we Tie : 2968 
: 04 0058C¢ CLAL bats PRINT + 2969. 
000000006 00 FB OOS5BE 638 CALLS BBG RST TEMP RELEASE > 2975. 
6 Dd 005¢ PUSHL POOL : 2976 | 
000000006 00 01 Fe ¢ CALLS #1,  DBGSPOP.. TEMPMEM : 
9 CE RET + 2979 
0060 CF 64$: z¥Ono Save nothing 3: 2683. 
7E D4 00501 CLRL 2 =( SP) ; | 
SE bo 203 PUSHL SP : 
7E 04 AC D 0050 MOVO. 4(AP), =(SP) : 
0000v CF 03 FB 00509 CALLS #3, SHOW_SYMBOL_TYPE_HANDLER : 
04 005DE RET ; 
; Routine Size: 1503 bytes, Routine Base: DBGSCODE + 12F6 


o-$e 1984 AX-11 Bliss-32 V4.0-74 Page 105 
1-0-1984 93:77:83 + ¥Okaus. Saclosgeymeor .035; 1 9° 193 

; 2 9 } ROUTINE na iceeat toe anoretdlenea MECHARG, ENBLARG) = 

; 98¢ | i FUNCTION 

3 9 1! This routine is the oreee handler for the SHOW_SYMBOL_TYPE routine. 

3 984 1! It corcher the Access Violations which occur during F the evaluation 

; 985 1: of 4 ecee Specs in DBGSSTA OVALSPEC royt ine, It also catches the 

3 9 § 1! Symb t in active scope’’ message during DST Value Spec evaluation 

; 9 a in DBcSsTAt _VALSPEC ‘f a register is referenced which is not available 

3 43 : in the current context. 

: 990 1 | INPUTS 

3 +4 : SIGARG = The signal argument vector. 

: 993 MECHARG = The mechanism argument vector. 

; 444 : ENBLARG = The enable argument vector (not used here). 

; 2880 997 1 | OUTPUT 

; 998 1! For DBG$_ACCADDCOM or DBGS$_SYMNOTACT error, we'll call DBGSPRINT 

; 999 1! routine fo print out message. for all other errors, this routine 

3 000 1! just resignals. 

3 it : : 

; 886 008 BEGIN 

: 5888 008 

: ryt 64 SIGARG: REF VECTORC,LONG); ! Pointer to the signal argument vector 

; 891 008 IF “sf ennet | } NEQ DBG$_ACCADDCOM AND 

; i} Btp pss GARes | NEQ DBGS$_ SYMNOTACT 

; 894 on NRETURN SSS _RESIGNAL; 

3 2896 O13 DBGSPRINT(UPLIT BYTE(ZASCIC * (type/address information is not available)'), 0); 

; 2897 014 DBGSNEWLINE(); 

3; 2898 015 SET UNWIND; 

3; 2899 818 RETURN 0; 

; 2900 01 

; 2901 018 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
73 73 65 72 64 64 61 


2F 65 70 79 74 28 20 f C8C P.AIU: .ASCII] \, (type/address information is not avail\ ; 

73 69 20 6E& 6F 69 74 61 $0 72 «OOF $6 6— 69 C98 3 
6C 69 61 76 61 $8 4 6f of 0 CAA : 

9 65 6C 62 61 OO0CB4 ASCII \able)\ 3 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


0000 00000 SHOW_SYMBOL_ TYPE geen: 
ave nothing 3 gone 


a 0 a ; 


pe 


3; Routine Size: 


DBGSYMBOL 
vOee Shc $086 YMOOL 1089; 1 


Ormonr=m RPOO 
OU TT OTVOW Oo 
FPDOWW7 FS FOW—w 


Vwonoomrms BWor— 


rane 198 
; 3009 
; 3011 
: 3013 
: 31s 
308. 
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Mite 1 Het 1 95:75:38 DEBUG. SRC IDBGSYMBOL .B3 31 ° ati 
ROUTINE WILDCARD_CANDIDATES(SYMBOL_PTR, MODRSTPTR, RSTPTR): = ; 
| 
| 
L 


FUNCTION 


This routine follows the symbol chain goinsec in all set modules, and 


SESSSE 


L 
all global 2 og a nted by RSTSSTAR ADDR's aes chain perncer. 


For each symbol enter, t routine get name 9 t 


pyneet and trys to match t name with the wildcard string pattern. 
If the result matches, return RST entry pointer of this symbol. 

This routine also updates the module RST pointer to point to the next 
set module, and the symbol RST pornser to point to the next symbol 

n the chain for the same module. is returned when reached to 


the end of the chain of all set modules. 


i 
i 
i 
i 
i 
i 
i 
i 
} 
! INPUTS 
SYMBOL _PTR = Pointer points to the wildcard name gtr ing efser the 
‘ 
i 
i 
i 
' 
i 
' 
i 
i 
i 
i 
i 


ot a se tt 


MEUM "OO OONO VF WO OONOU SW O 


OOOODOOOOOO 


modification. Such as, pointer value is 0 the wildcard 
name string is ‘‘*’’, or pointer points to pubaste ings. ie. 
A*eBeC => “OQA*B*CO, *AB => “A*BO, AB*® => “*0A*B 


MODRSTPTR = Pointer points to next set module RST entry 


RSTPTR = Pointer points to next symbol RST entry belong to 
the same module 


. etc. 


ew 


eS SS ee eeeeseeeeoeo 
WO A Pst OOO NOU OD 


OUTPUTS 
This routine returns candidate symbol's RST entry, when we have 
found the match, or 0 when reaches to end. 


BEGIN 
Pp 
SYMBOL PTR: REF 


wi 
MODRSTPTR: REF VEC 
RSTPTR: REF VECTOR 


! Pointer to Wildcard Sub-String or 0 

' Pointer to next set module's RST entry 
' Pointer to next syabe' in symbol chain 
: belong to t 


ODOOOOGOOODOODOOO00O 


er 


e same module 


SSOLS 


LOCAL 
FND Flag set to indicate we have found 
the desired candidate symbol 
Pointer points to the matched Sub- 
String in candidate symbol name 
Potater gornee to candidate symbol 


FNDPTR: REF VECTORC,BYTE), 
CAND_RSTPTR: REF RSTSENTRY, 
LENGTH, 

MATCH_NAME: REF VECTOR BYTE), 
NAME: REF VECTORC,BYTE) 
NEXTSETMOD: REF RSTSENTRY, 
SUBSTR: REF VECTORC,BYTE), 


WILDCARD_PTR: REF WILDCARDS_FLDS; 


ntr 

The rensinine Jearch Length of the 
candidate symbol name string 

Candidate symbol name appended with 
begin and end characters 

Candidate symbol name 

Pointer points to next set module 

Pointer to supeste ing in wildcard 
sub-str ng Link List 

: Petater se wildcard sub-string Link 

s 


ooo 
al 
= 
LESS 
—OO@ 


Be Be Oe Oe Oe Oe Be Se Be Se Os Be Be Be Be Ss Se Se Se SF Be Ss Se Se Se SF SH Se Se Oe Se SF Se Se Ge SH Se BH Os Se Se Se OHSS He Os Os Os Oe Os Oe Oe es SH SH bes 
oonooo 
w oO fun 
PPPADAUIUIUIUI EE BBE EE 
aroun FETT ES RAL RDANGAEE LEER EEE ES 
RPP IPIHIPOPIDPIPINIFPPIPITPUPIPIPIPIPIPINIPINIPIPSDINNINY at at nt a nt tt at a ot tt 


we 


MATCH_NAME = 0; 
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1 ~3007} 38? 95:79:38 DEBUG. SRC IDBGSYMBOL .B3 31 : ° (18) 
} Adjust the pointers to start matching poins in symbol chain of set 
module. Assume we have not found the candidate. 
NEXTSETMOD = “MODRSTPTREOI; 
ge! = .RSTPTR(OJ; 


! Walk through the symbol chain in all set modules and ery to match 
the candidate symbol name with the desired wildcard string pattern. 


WHILE TRUE DO 
BEGIN 
' Check to see if we have reached to the end of the global symbol 


chain, if we have, then we all done. 
if ;,CAND.RSTPTR EQL 0 AND .NEXTSETMOD EQL 0 


SSSS 
NOw 


oO 
Ooe@ 


IF .MATCH_NAME NEQ 0 THEN DBGSREL_MEMORY(.MATCH_NAME); 
RETURN .CAND_RSTPTR; 


s 


Check to see if we have reached to the end of the symbol chain 
belong to the same module. If we have, set the module RST 
entry pointer to next set module. If we have gone through all 
the set modules, return 0 to indicate the case. 


ooooo 


Ve wn— 


ed Ort me ee 


SELF 


Sssss 
wr 
BEEBE FAA MHNMAHNMHAE & BAMA A AAPNIPIPIPINININININNND 
nO 
ee 
o- 
we 


Set the module pointer to next set module. 
WHILE .NEXTSETMOD NEQ 0 DO 
BEGIN 


ee ee ee ee eee ee eee 


DONO UE WO 


: Set the pointer to next module in module chain. 

NEXTSETMOD = -NEXTSETMODCRSTSL_NXTMODPTR); 
Check to see if we have reached to the end of all set modules. 
If we have, exit this loop. 

F .NEXTSETMOD EQL 0 THEN EXITLOOP; 


' Check to see if this module is set. If it is, exit, then 
walk through its symbol chain. 


tt kt tt kk tt at as ws = 9 2 9 4 YH AYO 


PANEIPOPOPIMONNONONUNY 
MO OONO NEw Oo 


— 
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Vv SyON 12286871388 95:99:88 DEBUG. SRC IDBGSYMBOL .055; 1 | 918) 
IF .NEXTSETMODCRSTSV_MODSET] THEN EXITLOOP; 
END; ! End of WHILE setting module pointer. 


<o 


—— 


MEW —OOOVNOUS WN" O0OO~ 


OOOCCCoO 


Set the candidate ayer chain pointer to start point. 
we have reached to the end of all set modules, set the pointer 
to search global symbols. 
if .NEXTSETMOD NEQ 0 
CAND_RSTPTR = .NEXTSETMOD 


CAND_RSTPTR = .RSTSSTART_ADDRCRSTSL_SYMCHNPTRI; 


ELS 
END; 


If the value of SYMBOL_PTR is zero implies we want to show every 
pyatet in the DEBUG Run-Time Ts So simply updates symbol 


! 
1 
: T pointer to next symbol in chain, and updates the module 
! RST pointer to next set module at the end of the symbol ghetn. 
! then return. for the other case, we have a wildcard string pattern 
to match. 
If .SYMBOL_PTR NEQ 0 
THEN 
BEGIN 


Pick up candidate symbol's name. 
NAME = DBGSGET_DST_NAME(.CAND_RSTPTRCRSTSL_DSTPTRI); 


ww 
NOUS WO OONO USO 


Append begin and end characters to this candidate symbol's name. 
MATCH_NAME = WILDCARD_NAME_SEVUP(.NAME); 


PPPS 


! Match every Sub-String in wildcard sub-string Linked List with 

! the candidate symbol name orderly. If we can match all Sub-String 
! patterns in candidate symbol name then we have found the desired 
candidate. 
F 


NDPTR = MATCH NAMECI} 
LENGTH = .MATCA_NAMELO); 
WILDCARD PTR = [SYMBOL_PTR; 
WHILE TROE DO 

BEGIN 


Oo 


EEA 
oo 


wr 


! Check to see if we have reached to the end of the Linked 


' List. If we have, at this point we have successfully found 
' the candidate. 


if .WILDCARD_PTR EQL 0 
THEN 


ee me ee a ed ad td od od dd 


DONO UE WN —O OONOUS WN Oo MEAN 9 OONOA UNE WN 0 OONAYL EW O OONOUE Ww 
Pewee eee ee oy oY oP oY oY ot ot et et et et ot et et et oe et et et et eee We oo oo or 
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BEGIN 
FND = TRUE; 
EXITLOOP; 
END; 


Locate the Sub-String in the candidate symbol name string. 
SUBSTR = .WILDCARD PTRCWILDCARDSL_STRPTRI; 

FNDPTR = CHSFIND_SOB(.LENGTH, .FNBPTR, .SUBSTRCOJ, SUBSTRI1)); 
If we failed to locate the Sub-String, no point to go on. 

iF .FNDPTR EQL 0 THEN EXITLOOP; 

} t+ up next Sub-String in the wildcard sub-string Linked 

i . 

WILDCARD_PTR = .WILDCARD_PTRCWILDCARDSL_LINK); 

! Set the pointer and Length to the remaining candidate symbol 
name string. 


FNDPTR = .FNDPTR ¢ - SUBSTREO): 
LENGTH = .LENGTH = .SUBSTRLOJ: 


ooo 
wn 


SISAR 


! Every symbol in RST is a candidate. Set the flag to indicate we 
have a candidate. 


ELSE 
FND = TRUE; 

! Check to see if we have found the desired candidate symbol. If 
we have, exit from walking RST entries. 


if .FND THEN EXITLOOP; 


dt ot od = OOOO 


! We have not found the gendidete symbol yet, continue to next 
candidate symbol in RST entries. 


CAND _RSTPTR = .CAND_RSTPTRCRSTSL_SYMCHNPTRI; 
LF jRATCH NAME NEQ 
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ereie 
DBGSREL_MEMORY(.MATCH_NAME); 
MATCH_NAME = 0; 
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: } mt END; ! End of WHILE walking the RST entries. 
: 31 4 

3 31 9 . Ueate the Module RST pointer and Symbol RST pointer. Returned selected 
: } 5 } candidate symbol. 

: 31 : MODRSTPTRCO) = NEXT SETMOD | 

; 31 8 4 RSTPTR(O) = .CAND_RSTPTR RSTSL SYMCHNPTR}; 

731 5 IF_.MATCH NAME NEG 0 THEN DBGSREL_MEMORY( .MATCH_NAME); 

: 3140 3 RETURN .CAND_RSTPTR; 

3; 5141 

3; 3142 8 END; 


OFFC 00000 WILDCARD_CANDIDATES: 
WORD 


2 Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 ; 3019 
SE 04 ¢2 0000 SUBL2 SP : | 
54 08 8C DBO 0000 MOVL § @MODRSTPTR, NEXTSETMOD ; 3080. 
55 0c BC p 009 MOVL § @RSTPTR, CAND_RSTPTR : 3081. 
9 7C 0000D CLRG = MATCH_NAME ; 3074) 
: D4 OOOOF 1$: CLRL oR : 3095, 
5 D3 991 ISTE —CAND_RSTPTR : | 
52 DS 0001 INCL Re es 
54 3 $04 TSTL | NEXTSETMOD ; 
OA 12 00019 BNEO ; | 
9 05 00018 TSTL § MATCH_NAME : 3098 
oad 3% oo0TF BRU, : | 
ba) 3 00 a8: BRW 13$ : | 
22 52 £9 9 $: BLBC = «aR2,_ 6S : 3108. 
54 D5 000 TSTL  NEXTSETMOD ; | 
1] 18 0005¢ 4s Beat S$ : 3115 
54 10 M4 0 0 : MOVL § 16(NEXTSETMOD), NEXTSETMOD > 3121) 
08 0 BEQL «= S$ : 3127 
F4 28 MG OE BLBC 4O(NEXTSETMOD), 4$ ; 3133 | 
95 0 BEQ. 86 S$ : 3141 | 
55 4 00 A MOVL —NEXTSETMOD, CAND_RSTPTR ; 3143) 
59 000000096 09 D F S$: MOVL  RSTSSTART_ADDR, RO : 3145 
AO 0 6 8(RO), CAND_RSTPTR : 
4 Ac D 4A 68: TSTL YMBOL_PTR : 3157. 
4 4D BEQL 3 | 
0c AS DD 0004F PUSHL 12(CAND_RSTPTR) > 3164. 
000000006 00 gi FB : CALLS #1, DBGSGET_DST_NAME ; 
6E 0D MOVL RO, NAME ; 
—E DD C PUSHL E ; 3169 
0000v CF 1 FB 0005 CALLS a, WILDCARD NAME, SETUP ; | 
: 01 a9 E MOVAB 1(R9), FNOPTR > 3177) 
8 69 9A A MOVZBL (MATCH_NAME), LENGTH : 3178. 
6 06 AC D MOVL  SYMBOL“PTR, WILDCARD_PTR > 3179. 
56 D 1 7$: TSTL WILDCARD _PfR : 3188 


| Kk 4 
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yOes000 1 ~300n 138% 95:79:38 DEBUG. SRC)DBGSYMBOL .83 31 | oe 18) 
2 13 7 BEQL «sé : 
HERS lla, tiustagan gg suns a3 
63 58 01 3 7 mATCHE ne. 7 (SubSTR). LENGTH, (FNDPTR) ; 
33 D VL. RB, RS : 
; 7 8 SUBL2 RB, R : 
14 A BEQL 108 + 3204 
5 66 : ¢ OVL  (WILDCARD_PTR), WILDCARD_PTR : 3210 
‘ A F MOVZBL (SUBSTR) RO + 3216 
9 £0 ADDL2 RO, FNOPTR : 
é A 0009 MOV ZBL (SUBSTR), RO : 3217) 
8 0 t¢ 9 SUBL2. RO, LENGTH : | 
4 098 BRB 7 : 180 
SA 1 DO 00090 9$: MOVL #1, END : é | 
if AE OA 10$ BLBS FND, 12$ : 3233. 
5 08 AS D A MOVL §8(CAND_RSTPTR), CAND_RSTPTR > 3239) 
9 D5 000A TSTL § MATCH_RAME 3 3240 
8 13 Q00A9 BEQL 11$ : | 
DD 000AB USHL  MATCH_NAME + 3263) 
000000006 00 1 FB OOOAD CALLS #1, DBGSREL_MEMORY : | 
9 ps 0B4 CLRL  MATCH_NAME + 3244. 
FF56 31 086 11$:  BRW 1$ : 088 
08 Bc 54 00 00089 12$:  MOVL #$NEXTSETMOD, @MODRSTPTR ; 3253, 
OC BC 08 AS O 9080 MOVL 8(CAND_RSTPTR), @RSTPTR + 3254) 
59 05 000C TSTL  MATCH_RAME : 3255) 
09 13 0004 BEQL 148 : | 
9 DD 00¢6 13$: | PUSHL MATCH_NAME : | 
000000006 00 01 FB 00C CALLS #1, DBGSREL_MEMORY : 
50 5 D0 OOOCF 14%:  MOVL  CAND_RSTPTR> RO ; 3256 | 
04 00002 RET : 3258. 


; Routine Size: 211 bytes, Routine Base: DBGSCODE + 1917 


; 3143 3259 1 
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GSY 1b-se -1984 02:39: AX-11 Bligs-3 
voe-000 12-808-138e 93:79:38 DEBUG. SRCIDBG 
ROUTINE WILDCARD _NAME_SETUP(SYMBOL_NAME): = 
FUNCTION 
In order to make the matching wildcard format correctly and simply, 
9 


this rove ne appends null characters at the begin and end strin 
the begin and end characters are not ‘'*’’. 


2 V4.0- 
SYMBOL. 


VMEWwn—oO 


SYMBOL _NAME = Counted ASCII name string 


i 

i 

i 

' 

INPUTS 
i 

i OUTPUTS 

' Return Counted ASCII name fl appended with null characters or 
Counted ASCII name string itself. 


BEGIN | 


> RP PRN RP AN A TS TE A 
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MAP 
SYMBOL_NAME: REF VECTORC,BYTE]; ! Counted ASCII name string 
LOCAL 
Dx Indexed into ith byte in the string 
LEFT_FLAG, Flag set to indicate we need to pa 
out’ character at the begin 


strin 

Length of the counted ASCII string 

Flag set to indicate we need to pad 
null character at the end string 

Counted ASCII string after modification 


LENGTH 

RIGHT_FLAG, 

STRING: REF VECTORC,BYTE); 
! Assume we do not need the paddings. 
T_FLAG = FALSE; 

HT FLAG = FALSE; 

GTA = .SYMBOL_NAMECO]; 

Check begin character. 

if .SYMBOL_NAMEL1) NEQ XC‘** 

THEN 


BEGIN 
LENGTH = .LENGTH ¢ 1; 
be FLAS = TRUE; 


Check end character. 
iF; SYMBOL .NAMEC SYMBOL _NAMECOJ] NEQ ZC'®' 


080909 08 SIN NNN NNO PEEL A MINT PPE 
SS CSAIL Vg SSBF ARAN ELS SSNS ARAN SSSUS ALE IS SSS ALUNASSANES 


BEGIN 
LENGTH = ,LENGTH ¢ 1; 
RIGHT FLAG = TRUE; 
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B. 
ep-1984 02:3 
oep=1984 3:17:58 

Get some memory for modified string. 
STRING = DBGSGET_MEMORY(.LENGTH/4 + 1); 
Pad null character if the flag is set. 
iDX = 1; 
If .LEFT_FLAG 
noe cin 

SFRINGEI) = 0; 

IDX = .1Dx + 1; 


Copy the string itself. 
CHSMOVE (. SYMBOL _NAMECOJ, SYMBOL _NAMEL1], STRINGC.IDXI); 


Pad null character if the flag is set. 
If .RIGHT_FLAG THEN STRINGC.LENGTH) = 0; 


Ax-11 Ot igsate v4.0-74 
DEBUG. SRC JDBGSYMBOL .B3 


Adjust the length of the string and return the modified string. 


STRINGLO) = .LENGTH; 
RETURN . STRING; 


END; 
O1FC 00000 WILDCARD_NAME_SETUP: 
“WORD” Save R2,R3,R4,R5,R6,R7,RB 
53 D4 00002 CLRL ss LEF T_FLAG 
5B 04 CLRL = RIGHT FLAG 
2 06 A MOVL  SYMBOC_NAME, R2 
6 6 A A MOVZBL (R2) CENG 
A 01 Ad 91 CMPB CAC R2S, 4 
13 0001 BEQL=Ssé18s 
& 6 1 INCL LENGTH 
53 1 p 1 MOVL #1, LEFT_FLAG 
0 62 9A 00018 18 MOVZBL (Re) ng” 
2a 6240 91 0001B CMPB ss (RR) CROJ, #42 
g 13 O001F BEQL «= $$ 
é | INCL Hin 
8 o1 D MOVL ‘ nit FLAG 
50 6 4 f 6 28 DIVL3 NGTA, R 
, 01 Ad f A PUSHAB 
000000006 99 : F D CALLS DBGSGET MEMORY 
0 »D MOVL 4 
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Routine Base: DBGSCODE + 19EA 


88 bytes, 


3; Routine Size: 


DBGSYMBOL 
vou -000 
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ROUTINE WILDCARD_SUB_STRING(SYMBOL_NAME): = 


i FUNCTION 
; This routine breaks wildcard name string into Sub-Strings. 


' 
' 
: 
! INPUTS 

SYMBOL_NAME = Counted ASCII string contains wildcard characters. 
i OUTPUTS 

: Return a Linked List contains Sub-Strings, or zero if ‘'*'’ is the 
wildcard name string. 


BEGIN 


P 
SYMBOL_NAME: REF VECTORC,BYTE]; ! Counted ASCII wildcard name string 


LOCAL 


LENGTH, ! Remaining wry pi of the wildcard 


} name 
!' Pointer to Sub-S Strin 


1 
1 
NAMEPTR: REF VECTORC,BYTE), ! ing 
START: REF VECTORC, BYTE), ! Pointer to counted ASCII wildcard 
} name strin 
SUB_STRING: REF WILDCARD$_FLDS, ! Pointer to Linked list 
SYMBOL_PTR: REF WILDCARDS_FLDS, ! Pointer to Linked List 
WILDCARD_PTR: REF VECTORE BYTES; | Pointer to ''*'’ in the wildcard name 


string 
SYMBOL_PTR = 0; 


Wildcard name string is ‘'*'', no need to break it into Sub-Strings. 
iF .SYMBOL_NAMECO] EQL 1 THEN RETURN .SYMBOL_PTR; 


; Creat Linked List node. 


SYMBOL _PTR = DBGSGET S itcncompinindets -SIZE); 
Haein inate 

= . 
START = SYMBOL mB ARE 


! Locate the ‘'*"’ in the wildcard name string, extract the Sub-String 
without the ‘’*’’, insert it onto the Linked List. 
WHILE TRUE DO 
WILDCARD_PTR = CHSFIND_CH(.LENGTH, .START, 3C'®"); 
Check for end case. If WILDCARD. PTR is zero, this \opt ies no more 


' 
i "a" can be found in the wildcard name string. Set WILDCARD_PTR 
points to the end of wildcard name string. 


ss Ci 
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IF .WILDCARD_PTR EQL 0 THEN WILDCARD_PTR = SYMBOL_NAMEL1] + .SYMBOL_NAME[O); 


95 
Get some tempory memory for Sub-String. 


NAMEPTR = DBGSGET_TEMPMEM((.WILDCARD_PTR = .START)/ 4 ¢ 1); 
NAMEPTRLO) = .WILBCARD_PTR = .START; 


! Extract the ee AN | from wildcard name string. Install Sub-string 
pointer onto Linked List. 


CHSMOVE(.NAMEPTRLOJ, .START, NAMEPTR 


C1)); 
SUB_STRINGCWILDCARD$L_STRPTR] = .NAMEPT 


R; 

! Check to see if we have reached to the end of the string. If we 

have, then we are all done. 

if -WILDCARD_PTR GEQ (SYMBOL_NAMELC1] + .SYMBOL_NAMELO] = 1) THEN EXITLOOP; 


More Sub-String to break, get more tempory nemory for next node. 


SUB_STRINGCWILDCARD$SL_LINK] = DBGSGET_TEMPMEM(WILDCARDSK_SIZE); | 
SUB-STRING = .SUB_STRINGCWILDCARDSL_LINK); | 


} Adjust the pointer and remaining length. 


START = .WILDCARD_PTR + 1; 
LENGTH = SYMBOL_NAMEC1] + .SYMBOL_NAMELO) - .START; 


Sssesecsc ooo 
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End of the Linked List. Return Linked List pointer. 


SUB_STRINGCWILDCARDSL_LINK] = 0; 
¢ Nb a - SYMBOL _PTR; 


—OCOCOnou 
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OFFC 00000 WILOCARD SVS STRING: 


“WORD «Save R2,R3,R4,R5,R6,R7,RB,R9,RI0,R11 : 3350. 
58 ps 0 SYMBOL : 3379 | 
01 04 ¢ CMPB @SYMBOC NAME , w ; 3384 
1 8 BNEQ = : 
0081 3 A BRW ; 
; DD D 18 PUSHL # : 3389 
000000006 00 t F CALLS #1, DBGSGET_TEMPMEM ; 
0 D 16 MOVL RO, SYMBOL _PTR ; 
8 2 1 MOVL  SYMBOL_PTR> SUB STRING > 3390. 
6 04 Bt A 1¢ MOVZBL async NAME, LENGTH ; 3391 
59 06 AC 1 C1 0002 ADDLS #1, SYMBOL_NAME, START : 3392 


dD 65 
16-Sep-1984 AX-11 Bliss-32 V4.0-74 Page 118 
12-8087} 388 95: #3: § PeBUG.eACIoBaeYMEOL .035;1 9° (20) 
69 56 A 3A 28: LOCC #42, LENGTH, (START) : : 3400 
¢ i3 3 BNEQ 3$ : 
D r) CLRL RY : 
SA 1 09 3$ MOVL R1, WILDCARD_PTR : 
% BNEQ 4$ + 3407 
1 4 BC 9A MOVZBL @SYMBOL_NAME, R1 : 
1 4 ac 0 ADDL piAeOL. NAME AI ; 
A 1 Al A MOV (R1), "WILDCAR ; 
52 A 39 C 4%: SUBL START 5 MILDCARD- PIR. R2 + 3412 
51 2 4 § 4 DIVLS «#4 : 
01 Al SF 0004 PUSHAB itan}e: : 
000000006 : Q1 5 4 CALLS #1, D DBGSGET_ TEMPMEM : 
OVL 9. N EPTR : | 
$ § OVB R2. (NAMEPTR) + 3413 
9 A é MOVZBL (NAMEPTR), RO : 3419 
01 AB 6 28 0005 Ovc3 RO, (START) 1 CNAMEPTR) : 
06 A? pO 005 VL. -NAMEPTR, 4(SUB_STRIN ; 34 0 
a 04 BC 9A 0006 MOVZBL @SYMBOL_N NAME... + 3426. 
3 04 AC CO 000 ADDL2  SYMBOL_RAM ; | 
SA D1 OO06A CMPL ¥ILDCARD_ wit Re : 
1D 18 00060 GEO ; 
02 dD O06F PUSHL a + 3431 
000000006 09 gi FB 00 1 CALLS #1, DBGSGET_TEMPMEM : 
B : dO 00078 MOVL (SUB_ STRING) : 
57 67 00 00078 MOVL (Sup be NG) NeuB. STRING 3 432 
59 01 AA Hi Oo7E MOV 1(R1 ria > 3437) 
50 52 59 § 008 SUBL START. Re 0 ; 3438 
99 11 0008A BRB 2$ : 3398) 
67 D4 0008C 5$ CLRL  (SUB_STRING) + 3444. 
50 B DO OO0BE 6$ MOVL § SYMBOL_PTR, RO > 3445 
04 00091 RET > 3446 


; Routine Size: 146 bytes, Routine Base: DBGSCODE + 1A42 


3 $382 a7 1 
: 3334 448 © END ELUDOM 

.EXTRN LIBSSIGNAL, SYSSUNWIND 
; PSECT SUMMARY 
: Name Bytes Attributes 
: DBGSOWN 12 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
S DBGSCODE 686 NOVEC.NOWRT, RD, EXE, SHR, LCL. REL, CON, PIC.ALIGN(O) 
> DBGSPLIT NOVEC;NOWRT, RD, EXE, SHR, LCL. REL. CON, PIC.ALIGN(O) 


; Library Statistics 
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3 eocceee= Symbols -ooeeee- Pages Processing 
; File Total Loaded Percent Mapped Time 
; $puA 1861 5 100 :01. 
; ‘EOEBUG. 06,98 etaotber 32:1 H $ 3 5 00: 00-1 
; {DEBUG L3 154 142 97 :02.0 
: Ha : LDEBUG. “OB; Be siete { 2;1 418 16 38 ' 
; tn eae 386 ; 1 3} 88:99 -3 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=L1S$:D0BGSYMBOL/OBJ=0BJ$:DBGSYMBOL MSRC$:DBGSYMBOL /UPDATE=(ENH$:DBGSYMBOL ) 
Size: 6868 code + 3269 data bytes 
Run Time 751.9 
Elapsed fine: #20 ov 
Lines/CPU Min: 


Lexemes/CPU-Min: 13529 
pees | Used: 561 pages 
Compilation Complete 
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